(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    110056,       2576]
NotebookOptionsPosition[     98693,       2331]
NotebookOutlinePosition[     99365,       2357]
CellTagsIndexPosition[     99285,       2352]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["0.7", "HistoryData",
  CellTags->"New",ExpressionUUID->"8c13bad8-db0b-4bf7-9d42-ef30b9c0a461"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified",ExpressionUUID->"667ef576-c7a2-457a-83e3-e9b109d64a14"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete",ExpressionUUID->"530652f5-f0d4-4456-b67c-3ff4ab223134"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised",ExpressionUUID->"3c6865cf-0d70-4860-b25e-683be0981a1e"]
}], "History",
 CellID->1247902091,ExpressionUUID->"2d526593-e016-4fd2-a0f9-1d2b0730b5fd"],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449,ExpressionUUID->"ff9531e2-e9d6-4978-b0bb-267dbb02ccc8"],

Cell["Symbol", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507,ExpressionUUID->"199f00c6-e880-4d44-b309-d65ff2fbf8e6"],

Cell["MaXrd", "Categorization",
 CellChangeTimes->{3.7438365881800632`*^9},
 CellLabel->"Paclet Name",
 CellID->605800465,ExpressionUUID->"a492d49f-b714-4b90-84c4-12f7445f1d44"],

Cell["MaXrd`", "Categorization",
 CellChangeTimes->{3.743836588569275*^9},
 CellLabel->"Context",
 CellID->468444828,ExpressionUUID->"31960670-a584-4c52-886b-fe10fc432b7b"],

Cell["MaXrd/ref/RelatedFunctionsGraph", "Categorization",
 CellChangeTimes->{3.743836588925206*^9},
 CellLabel->"URI",ExpressionUUID->"f23c4b99-ebcb-48eb-840e-e14cb3a0a84f"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->477174294,ExpressionUUID->"54186f04-3033-45ad-8775-88d2cf2d49d5"],

Cell["XXXX", "Keywords",
 CellID->1164421360,ExpressionUUID->"5f55613d-c346-4035-a2b8-6b938e6b5667"]
}, Closed]],

Cell[CellGroupData[{

Cell["Syntax Templates", "TemplatesSection",
 CellID->1872225408,ExpressionUUID->"afa78fa7-18d1-416a-96ef-33d0f9227133"],

Cell[BoxData[""], "Template",
 CellLabel->"Additional Function Template",
 CellID->1562036412,ExpressionUUID->"fc41e909-3c0e-4759-8075-aaea1822c5f9"],

Cell[BoxData[""], "Template",
 CellLabel->"Arguments Pattern",
 CellID->158391909,ExpressionUUID->"7fbc84e1-d571-4fbc-a58c-177e33e21122"],

Cell[BoxData[""], "Template",
 CellLabel->"Local Variables",
 CellID->1360575930,ExpressionUUID->"a6f31a3f-0b3b-43e2-8255-6c7be70b1da4"],

Cell[BoxData[""], "Template",
 CellLabel->"Color Equal Signs",
 CellID->793782254,ExpressionUUID->"b1cb9dbc-8f1e-4f9e-abd6-24fd8eea5fd8"]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771,ExpressionUUID->"c572424c-eba6-4ea1-814a-651991ecd244"],

Cell["XXXX", "Details",
 CellLabel->"Lead",
 CellID->670882175,ExpressionUUID->"d9488ef8-5627-4697-bd26-e92e1dbb14ca"],

Cell["XXXX", "Details",
 CellLabel->"Developers",
 CellID->350963985,ExpressionUUID->"eee41701-c765-49b1-80bb-e6897c4527c3"],

Cell["XXXX", "Details",
 CellLabel->"Authors",
 CellID->8391405,ExpressionUUID->"328def55-6b0c-46c1-97d4-6cc0f8d25cfd"],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->3610269,ExpressionUUID->"e92208c8-e502-408b-9d00-376ef4d41a50"],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->401364205,ExpressionUUID->"21b5692b-5d75-4129-92ef-664ef6a8d53b"],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->350204745,ExpressionUUID->"8039fa26-76fd-4d0c-9c20-9900b3405883"],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->732958810,ExpressionUUID->"912c9a03-6065-445b-ba02-1c8c11786caa"],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->222905350,ExpressionUUID->"bc05ca89-e318-4701-85bc-dccd597b99cd"],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365,ExpressionUUID->"a5fb0745-4277-4d9d-8f31-4071a6b1c682"]
}, Closed]],

Cell[CellGroupData[{

Cell["RelatedFunctionsGraph", "ObjectName",
 CellID->1224892054,ExpressionUUID->"b43b5c1a-a770-4fff-83c2-15c4247a380f"],

Cell[TextData[{
 Cell["   ", "ModInfo",ExpressionUUID->"5fbd1655-fe95-45e1-885f-f18ddea121a7"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["RelatedFunctionsGraph",
    BaseStyle->"Link",
    ButtonData->"paclet:MaXrd/ref/RelatedFunctionsGraph"], "[", 
   StyleBox["f", "TI"], "]"}]], "InlineFormula",ExpressionUUID->
  "8a3baa58-92ba-4333-878c-50b8214e02cd"],
 " \[LineSeparator]returns a graph showing the closest related functions to \
",
 Cell[BoxData[
  StyleBox["f", "TI"]], "InlineFormula",ExpressionUUID->
  "2e0704cd-1ca8-41a2-945f-6999365a23bf"],
 " in the ",
 Cell[BoxData[
 "MaXrd`"], "InlineFormula",ExpressionUUID->
  "7669ae2e-6141-4709-a79e-86bbfe2bf5d2"],
 "-context."
}], "Usage",
 CellChangeTimes->{{3.7143002712164297`*^9, 3.7143003190612593`*^9}, {
  3.730096059460541*^9, 3.730096059804318*^9}, {3.73009612489956*^9, 
  3.7300961260347443`*^9}, {3.7438365902458878`*^9, 3.743836590246018*^9}},
 CellID->982511436,ExpressionUUID->"3fee5633-10aa-4c5c-a67a-c2e2b7454e1e"],

Cell[TextData[{
 "Input ",
 Cell[BoxData[
  StyleBox["f", "TI"]], "InlineFormula",ExpressionUUID->
  "85b8170c-eea4-4cff-bc1a-b82d8af8cefc"],
 " may be a symbol or a string."
}], "Notes",
 CellChangeTimes->{{3.742028468738162*^9, 3.742028489078944*^9}},
 CellID->2065610929,ExpressionUUID->"91c3b632-7cf8-444a-b1a6-5dd41142ba8a"],

Cell["\<\
The function will return an empty list if related functions cannot be found \
or no other functions depend on it.\
\>", "Notes",
 CellChangeTimes->{{3.71430025242859*^9, 3.7143002678393173`*^9}, 
   3.714300423716384*^9, {3.714314283892305*^9, 3.714314298313293*^9}},
 CellID->1067943069,ExpressionUUID->"b0ca9316-0174-4cbd-be2d-3b4ff2d1f0dd"],

Cell["\<\
The direction of the arrow shows where the function is applied.\
\>", "Notes",
 CellChangeTimes->{{3.714304449330538*^9, 3.71430447886032*^9}, {
  3.73010581085852*^9, 3.730105865679885*^9}, {3.730105938161111*^9, 
  3.7301059830181007`*^9}},
 CellID->734379717,ExpressionUUID->"63c72d80-c1f6-4a1e-b885-594b6c3f6227"],

Cell["Options:", "Notes",
 CellChangeTimes->{{3.714300419426648*^9, 3.714300421448085*^9}},
 CellID->371065972,ExpressionUUID->"7fa401ad-b8f4-4ff4-80eb-53a65a4c6e68"],

Cell[BoxData[GridBox[{
   {Cell["      ", "ModInfo",ExpressionUUID->
     "525f9dd8-647c-44c6-a94b-92b06d75a10e"], "\"\<DirectOnly\>\"", 
    ButtonBox["False",
     BaseStyle->"Link",
     ButtonData->"paclet:ref/False"], Cell[TextData[{
     "wheter to only display functions that ",
     Cell[BoxData[
      StyleBox["f", "TI"]], "InlineFormula",ExpressionUUID->
      "f5028d26-5fc7-4d04-b0a3-92d50c80c521"],
     " applies explicitly"
    }], "TableText",ExpressionUUID->"4c622356-7067-491b-b6b7-7c431d4b1b9d"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "9779aea3-6f73-427a-a136-b5f749b56c56"], "\"\<Limit\>\"", "10", Cell[
    "maximum number of functions in the graph", "TableText",ExpressionUUID->
     "002642ad-25fb-4b16-8882-f3d82a7faad4"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "01dae27c-c573-4006-b495-b5b683a65517"], "\"\<ShowDependent\>\"", 
    ButtonBox["False",
     BaseStyle->"Link",
     ButtonData->"paclet:ref/False"], Cell[TextData[{
     "wheter to show which functions are dependent on ",
     Cell[BoxData[
      StyleBox["f", "TI"]], "InlineFormula",ExpressionUUID->
      "6c70b947-6ef8-448f-9712-3aebb75be9fe"]
    }], "TableText",ExpressionUUID->"b171e859-bd2c-4acd-ba43-f2b9f7ea8cec"]}
  }]], "3ColumnTableMod",
 TaggingRules->{"Alphabetized" -> True},
 CellChangeTimes->{{3.71430043348843*^9, 3.71430045510585*^9}, {
  3.7143012294244223`*^9, 3.7143013142766037`*^9}, {3.7143015799814377`*^9, 
  3.7143016035336018`*^9}},
 CellID->1202211238,ExpressionUUID->"ccc1b3cb-fb54-4e5d-a247-2218ecab7eae"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tutorials", "TutorialsSection",
 CellID->250839057,ExpressionUUID->"e4df524d-aa90-4dde-8720-76060d5bd9c4"],

Cell["XXXX", "Tutorials",
 CellID->341631938,ExpressionUUID->"50d6f853-3667-4873-980c-2c553858a13c"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Demonstrations", "RelatedDemonstrationsSection",
 CellID->1268215905,ExpressionUUID->"5d5d08f9-cfa2-4e70-a8a5-afa1001e44f9"],

Cell["XXXX", "RelatedDemonstrations",
 CellID->1129518860,ExpressionUUID->"44fc52eb-bcba-472f-abc4-9c7b4730abe0"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Links", "RelatedLinksSection",
 CellID->1584193535,ExpressionUUID->"97f6b36b-7f0e-4799-a480-231821c3942a"],

Cell["XXXX", "RelatedLinks",
 CellID->1038487239,ExpressionUUID->"ef10f5f4-6a18-4474-bbcc-701db1aa81c0"]
}, Open  ]],

Cell[CellGroupData[{

Cell["See Also", "SeeAlsoSection",
 CellID->1255426704,ExpressionUUID->"5d349b99-86c6-4f7c-b7bf-1e2d18f36060"],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["$GroupSymbolRedirect",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/$GroupSymbolRedirect"]], "InlineFormula",
  ExpressionUUID->"2cd48b55-6ac5-4a10-9bda-d5967be96e82"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["$MaXrdPath",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/$MaXrdPath"]], "InlineFormula",
  ExpressionUUID->"cbf22bbb-1d26-47e3-8b3e-76bcf63430e0"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["$MaXrdFunctions",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/$MaXrdFunctions"]], "InlineFormula",
  ExpressionUUID->"92a02a23-111c-476b-aa45-cc1e10321ada"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["$MaXrdVersion",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/$MaXrdVersion"]], "InlineFormula",
  ExpressionUUID->"a081b466-4dc5-4e4b-8838-2065344afaab"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["$TransformationMatrices",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/$TransformationMatrices"]], "InlineFormula",
  ExpressionUUID->"4c03ba62-d5d6-4b43-956f-fe16d5858049"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["InputCheck",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/InputCheck"]], "InlineFormula",
  ExpressionUUID->"e1348da8-c189-46a9-89a1-9e27eda38159"]
}], "SeeAlso",
 CellChangeTimes->{{3.730359224727516*^9, 3.730359230332193*^9}, {
  3.7303592853885403`*^9, 3.730359309098528*^9}, {3.743865336672497*^9, 
  3.7438653366727953`*^9}, {3.743865421779768*^9, 3.7438654217801228`*^9}, {
  3.74386546372882*^9, 3.7438654637290916`*^9}, {3.743865653363928*^9, 
  3.74386565336432*^9}, {3.744115070423183*^9, 3.744115084229351*^9}},
 CellID->929782353,ExpressionUUID->"9d2ccad5-f853-49b4-9305-8e6a9088e5c3"]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "MoreAboutSection",
 CellID->38303248,ExpressionUUID->"9715f1b4-2ff4-4184-a812-c2f5e40dcdcc"],

Cell["XXXX", "MoreAbout",
 CellID->1665078683,ExpressionUUID->"dcf67444-91f0-4692-98e3-d662b4ab553e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     StyleBox["Examples", "PrimaryExamplesSection"], 
     ButtonBox[
      RowBox[{
       RowBox[{"More", " ", "Examples"}], " ", "\[RightTriangle]"}],
      BaseStyle->"ExtendedExamplesLink",
      ButtonData:>"ExtendedExamples"]}
   }],
  $Line = 0; Null]], "PrimaryExamplesSection",
 CellID->880084151,ExpressionUUID->"37343cd5-1255-4f34-8e90-dc76e97fcdc8"],

Cell[TextData[{
 "The arrows originate from a function that is applied in the targeted \
function. In this example, we see that ",
 Cell[BoxData[
  ButtonBox["UnitCellTransformation",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/UnitCellTransformation"]], "InlineFormula",
  ExpressionUUID->"aec106ba-9635-4dc7-b778-f5209bb77b41"],
 " makes use of the functions ",
 Cell[BoxData[
  ButtonBox["GetSymmetryData",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/GetSymmetryData"]], "InlineFormula",
  ExpressionUUID->"d5c49526-18dc-4a90-b2c7-c19bb0a8bea7"],
 ", ",
 Cell[BoxData[
  ButtonBox["GetLatticeParameters",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/GetLatticeParameters"]], "InlineFormula",
  ExpressionUUID->"915ebdf7-f610-4de6-8798-1651900408a3"],
 ", ",
 Cell[BoxData[
  ButtonBox["$SpaceGroups",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/$SpaceGroups"]], "InlineFormula",
  ExpressionUUID->"fa90f8eb-b2e5-4d7f-bed1-c7f74ce7f481"],
 " and others."
}], "ExampleText",
 CellChangeTimes->{{3.730106022057232*^9, 3.730106097820003*^9}, {
  3.737968509181684*^9, 3.737968509181802*^9}, {3.737968552089149*^9, 
  3.7379685520893097`*^9}},
 CellID->2069733463,ExpressionUUID->"dbb2b1a2-2bdf-488d-a57f-e01af8198c94"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RelatedFunctionsGraph", "[", "\"\<UnitCellTransformation\>\"", 
  "]"}]], "Input",
 CellChangeTimes->{{3.714300195744272*^9, 3.714300203635391*^9}, {
  3.7300969536305*^9, 3.730096954734391*^9}, {3.742028502610343*^9, 
  3.742028503312077*^9}},
 CellLabel->"In[1]:=",
 CellID->1320626680,ExpressionUUID->"5cbab09f-46cb-472c-ac26-59ddf9b5d781"],

Cell[BoxData[
 GraphicsBox[
  TagBox[GraphicsGroupBox[{
     GraphicsComplexBox[{{0.5867821225815377, 1.7706890050760427`}, {
      0.8990023685701796, 0.9128709291792206}, {0.10843295355882332`, 
      1.3693063938279875`}, {0., 0.7543525559673411}, {0.31222024597050335`, 
      0.21357122666394557`}, {0.8990023684472244, 0.}, {1.4857844909814788`, 
      0.21357122650587845`}, {1.7980047370976573`, 0.7543525557251674}, {
      1.6895717837044897`, 1.369306393615025}, {1.2112226147899, 
      1.7706890049919368`}}, 
      {RGBColor[0.5, 0., 0.], Arrowheads[{{0.035116182476780194`, 0.7}}], 
       ArrowBox[{1, 2}], ArrowBox[{3, 2}], ArrowBox[{4, 2}], ArrowBox[{5, 2}],
        ArrowBox[{5, 1}], ArrowBox[{6, 2}], ArrowBox[{7, 2}], 
       ArrowBox[{8, 2}], ArrowBox[{9, 2}], ArrowBox[{10, 2}]}], {
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{0.2667821225815377, 1.7206890050760426}, \
{0.9067821225815378, 1.8206890050760427}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          
          TemplateBox[{
           "\"GetCrystalMetric\"","paclet:MaXrd/ref/GetCrystalMetric"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {0.5867821225815377, 1.7706890050760427}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{0.45900236857017956, 0.8628709291792206}, \
{1.3390023685701795, 0.9628709291792207}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          
          TemplateBox[{
           "\"UnitCellTransformation\"",
            "paclet:MaXrd/ref/UnitCellTransformation"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {0.8990023685701796, 0.9128709291792206}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{-0.2915670464411767, 1.3193063938279874}, \
{0.5084329535588233, 1.4193063938279875}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          
          TemplateBox[{
           "\"GetLatticeParameters\"","paclet:MaXrd/ref/GetLatticeParameters"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {0.10843295355882332, 1.3693063938279875}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{-0.3, 0.704352555967341}, {0.3, 0.8043525559673411}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          
          TemplateBox[{
           "\"GetSymmetryData\"","paclet:MaXrd/ref/GetSymmetryData"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {0., 0.7543525559673411}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{0.11222024597050334, 0.16357122666394558}, \
{0.5122202459705034, 0.26357122666394556}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          TemplateBox[{"\"InputCheck\"","paclet:MaXrd/ref/InputCheck"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {0.31222024597050335, 0.21357122666394557}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{0.5590023684472243, -0.05}, {1.2390023684472244, 0.05}], \

       {GrayLevel[0], InsetBox[
         StyleBox[
          
          TemplateBox[{
           "\"ToStandardSetting\"","paclet:MaXrd/ref/ToStandardSetting"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {0.8990023684472244, 0.}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{1.2457844909814788, 0.16357122650587846}, \
{1.7257844909814788, 0.26357122650587844}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          TemplateBox[{"\"$CrystalData\"","paclet:MaXrd/ref/$CrystalData"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {1.4857844909814788, 0.21357122650587845}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{1.5580047370976573, 0.7043525557251673}, \
{2.0380047370976575, 0.8043525557251674}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          TemplateBox[{"\"$SpaceGroups\"","paclet:MaXrd/ref/$SpaceGroups"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {1.7980047370976573, 0.7543525557251674}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{1.2295717837044897, 1.3193063936150249}, \
{2.1495717837044896, 1.419306393615025}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          
          TemplateBox[{
           "\"$TransformationMatrices\"",
            "paclet:MaXrd/ref/$TransformationMatrices"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {1.6895717837044897, 1.369306393615025}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{0.9512226147898999, 1.7206890049919368}, \
{1.4712226147899, 1.8206890049919369}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          
          TemplateBox[{
           "\"$GroupSymbolRedirect\"","paclet:MaXrd/ref/$GroupSymbolRedirect"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {1.2112226147899, 1.7706890049919368}]}}}},
    ContentSelectable->True],
   Annotation[#, 
    VertexCoordinateRules -> {{0.5867821225815377, 1.7706890050760427`}, {
     0.8990023685701796, 0.9128709291792206}, {0.10843295355882332`, 
     1.3693063938279875`}, {0., 0.7543525559673411}, {0.31222024597050335`, 
     0.21357122666394557`}, {0.8990023684472244, 0.}, {1.4857844909814788`, 
     0.21357122650587845`}, {1.7980047370976573`, 0.7543525557251674}, {
     1.6895717837044897`, 1.369306393615025}, {1.2112226147899, 
     1.7706890049919368`}}]& ],
  AspectRatio->Automatic,
  FrameTicks->None,
  ImageSize->Large,
  PlotRange->All,
  PlotRangePadding->Scaled[0.1]]], "Output",
 CellChangeTimes->{{3.714300204454855*^9, 3.71430022421496*^9}, 
   3.714300404872686*^9, 3.7179509673303947`*^9, 3.7300969026701612`*^9, {
   3.73009694855049*^9, 3.730096955181698*^9}, 3.730359102772654*^9, 
   3.73797627157736*^9, 3.738379116246478*^9, {3.7420285010845423`*^9, 
   3.742028528568248*^9}},
 CellLabel->"Out[1]=",
 CellID->518695503,ExpressionUUID->"b08d5223-9dfa-4974-aef7-d640741c19c0"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["More Examples", "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968,ExpressionUUID->"2db8cf6c-16ff-41d9-931a-5d487bf07ca8"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Scope", "ExampleSection",ExpressionUUID->
   "67385182-3ed8-4674-ac77-144ca23bbc17"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1293636265,ExpressionUUID->"08bc864f-98c1-4064-b72c-dbfea8bb8888"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Generalizations & Extensions", "ExampleSection",ExpressionUUID->
   "f4a634bf-e007-427c-a420-a32d4ee711be"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1020263627,ExpressionUUID->"99612313-a646-45c7-8a82-0680a961347c"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Options", "ExampleSection",ExpressionUUID->
   "98e36706-9627-4f22-8509-26884b1c16d8"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2061341341,ExpressionUUID->"83a44520-675d-421a-ba3c-3668a892a9f6"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\"Limit\"", "ExampleSubsection",ExpressionUUID->
   "ff7bc343-fb21-475c-b3ff-8d97ecf42bdd"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.714300459870686*^9, 3.7143004611236753`*^9}},
 CellID->1757724783,ExpressionUUID->"c673667b-8334-424a-8ec5-483606d087dc"],

Cell["\<\
By default, the graph will be limited to ten connections. Look for ten arrows \
in the following graph:\
\>", "ExampleText",
 CellChangeTimes->{{3.714303596170896*^9, 3.714303639186294*^9}},
 CellID->687216101,ExpressionUUID->"bef96953-bd65-43e5-b538-ba009d4a51ad"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RelatedFunctionsGraph", "[", "StructureFactor", "]"}]], "Input",
 CellChangeTimes->{{3.714300514482111*^9, 3.714300515710894*^9}, {
  3.730096967949979*^9, 3.730096969174021*^9}, {3.742028533450714*^9, 
  3.7420285470244617`*^9}},
 CellLabel->"In[1]:=",
 CellID->27134111,ExpressionUUID->"cb962357-5ec2-46e9-9325-509295dbbaa5"],

Cell[BoxData[
 GraphicsBox[
  TagBox[GraphicsGroupBox[{
     GraphicsComplexBox[{{1.0765969066430576`, 1.0765969066630785`}, {
      0.6646011071062503, 0.6646011072187572}, {1.6148953599846076`, 
      1.2995674265212733`}, {0.6306558667816611, 2.153193813286115}, {
      8.008482765831104*^-11, 1.5225379466694813`}, {0., 
      0.6306558668500177}, {0.6306558665883193, 1.201267973982567*^-10}, {
      1.522537946407784, 0.}, {2.153193813165988, 0.6306558665600046}, {
      1.299567426718763, 1.614895359914533}}, 
      {RGBColor[0.5, 0., 0.], Arrowheads[{{0.03295608249326353, 0.7}}], 
       ArrowBox[{1, 2}], ArrowBox[{3, 2}], ArrowBox[{3, 1}], ArrowBox[{4, 2}],
        ArrowBox[{5, 2}], ArrowBox[{6, 2}], ArrowBox[{7, 2}], 
       ArrowBox[{8, 2}], ArrowBox[{9, 2}], ArrowBox[{10, 1}]}], {
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{0.5765969066430576, 1.0265969066630785}, \
{1.5765969066430576, 1.1265969066630785}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          
          TemplateBox[{
           "\"GetAtomicScatteringFactor\"",
            "paclet:MaXrd/ref/GetAtomicScatteringFactor"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {1.0765969066430576, 1.0765969066630785}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{0.3646011071062503, 0.6146011072187572}, \
{0.9646011071062504, 0.7146011072187572}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          
          TemplateBox[{
           "\"StructureFactor\"","paclet:MaXrd/ref/StructureFactor"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {0.6646011071062503, 0.6646011072187572}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{1.2948953599846076, 1.2495674265212733}, \
{1.9348953599846077, 1.3495674265212734}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          
          TemplateBox[{
           "\"GetCrystalMetric\"","paclet:MaXrd/ref/GetCrystalMetric"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {1.6148953599846076, 1.2995674265212733}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{0.3306558667816611, 2.103193813286115}, \
{0.9306558667816611, 2.2031938132861146}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          
          TemplateBox[{
           "\"GetSymmetryData\"","paclet:MaXrd/ref/GetSymmetryData"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {0.6306558667816611, 2.153193813286115}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{-0.41999999991991516, 1.4725379466694812}, \
{0.4200000000800848, 1.5725379466694813}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          
          TemplateBox[{
           "\"GetSymmetryOperations\"",
            "paclet:MaXrd/ref/GetSymmetryOperations"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {8.008482765831104*^-11, 1.5225379466694813}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{-0.2, 0.5806558668500177}, {0.2, 0.6806558668500178}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          TemplateBox[{"\"InputCheck\"","paclet:MaXrd/ref/InputCheck"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {0., 0.6306558668500177}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{0.09065586658831926, -0.049999999879873205}, \
{1.1706558665883193, 0.0500000001201268}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          
          TemplateBox[{
           "\"SymmetryEquivalentPositions\"",
            "paclet:MaXrd/ref/SymmetryEquivalentPositions"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {0.6306558665883193, 1.201267973982567*^-10}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{1.1825379464077839, -0.05}, {1.862537946407784, 0.05}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          
          TemplateBox[{
           "\"SystematicAbsentQ\"","paclet:MaXrd/ref/SystematicAbsentQ"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {1.522537946407784, 0.}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{1.9131938131659878, 0.5806558665600046}, \
{2.393193813165988, 0.6806558665600047}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          TemplateBox[{"\"$CrystalData\"","paclet:MaXrd/ref/$CrystalData"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {2.153193813165988, 0.6306558665600046}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{1.079567426718763, 1.564895359914533}, \
{1.5195674267187629, 1.664895359914533}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          TemplateBox[{"\"GetElements\"","paclet:MaXrd/ref/GetElements"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {1.299567426718763, 1.614895359914533}]}}}},
    ContentSelectable->True],
   Annotation[#, 
    VertexCoordinateRules -> {{1.0765969066430576`, 1.0765969066630785`}, {
     0.6646011071062503, 0.6646011072187572}, {1.6148953599846076`, 
     1.2995674265212733`}, {0.6306558667816611, 2.153193813286115}, {
     8.008482765831104*^-11, 1.5225379466694813`}, {0., 0.6306558668500177}, {
     0.6306558665883193, 1.201267973982567*^-10}, {1.522537946407784, 0.}, {
     2.153193813165988, 0.6306558665600046}, {1.299567426718763, 
     1.614895359914533}}]& ],
  AspectRatio->Automatic,
  FrameTicks->None,
  ImageSize->Large,
  PlotRange->All,
  PlotRangePadding->Scaled[0.1]]], "Output",
 CellChangeTimes->{
  3.714300516267796*^9, 3.714301173752089*^9, 3.714303588569903*^9, 
   3.714303642782282*^9, 3.7143037251471567`*^9, 3.717950982944208*^9, 
   3.730097375264256*^9, 3.730359108262805*^9, 3.737976280114643*^9, 
   3.738379123241547*^9, {3.742028537559256*^9, 3.742028549618827*^9}},
 CellLabel->"Out[1]=",
 CellID->1998510158,ExpressionUUID->"75394a76-1f8d-4f07-8af6-4418266ef747"]
}, Open  ]],

Cell["\<\
This limit exists to keep the graphs from becoming \[OpenCurlyDoubleQuote]too \
messy\[CloseCurlyDoubleQuote]. Consider the cases where we limit the graph to \
20 connections, or even including all found connections:\
\>", "ExampleText",
 CellChangeTimes->{{3.714303652348349*^9, 3.714303712462599*^9}, 
   3.742028554167837*^9},
 CellID->1642968976,ExpressionUUID->"94845845-f67d-4974-9adf-68cea0840ea1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RelatedFunctionsGraph", "[", 
  RowBox[{"StructureFactor", ",", 
   RowBox[{"\"\<Limit\>\"", "\[Rule]", "20"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.714300465578389*^9, 3.714300501460758*^9}, {
  3.714301180691641*^9, 3.7143011861271343`*^9}, {3.7300977902817097`*^9, 
  3.7300977913452253`*^9}},
 CellLabel->"In[2]:=",
 CellID->732542949,ExpressionUUID->"500d81c0-c02f-4c1e-9b26-afdab4a65e88"],

Cell[BoxData[
 GraphicsBox[
  TagBox[GraphicsGroupBox[{
     GraphicsComplexBox[{{0.9535247013274558, 1.9934621292767647`}, {
      1.601239810795153, 1.522869556145746}, {0.9535247012429436, 
      1.0522769831310481`}, {1.3538346538967183`, 0.761434778072873}, {
      1.8486449674884715`, 0.7614347780062266}, {2.248954920220594, 
      1.052276982956566}, {2.4018597161927295`, 1.522869556001964}, {
      2.2489549203896195`, 1.993462129102282}, {1.8486449677619607`, 
      2.284304334196403}, {1.1064294972717712`, 3.045739112380353}, {
      0.3058095918597583, 2.464054702407783}, {0., 1.5228695562895262`}, {
      1.1064294969982837`, 0.}}, 
      {RGBColor[0.5, 0., 0.], Arrowheads[{{0.028755923830888586`, 0.7}}], 
       ArrowBox[{1, 2}], ArrowBox[{3, 2}], ArrowBox[{3, 1}], ArrowBox[{4, 2}],
        ArrowBox[{5, 2}], ArrowBox[{6, 2}], ArrowBox[{6, 1}], 
       ArrowBox[{6, 3}], ArrowBox[{6, 4}], ArrowBox[{7, 2}], ArrowBox[{8, 2}],
        ArrowBox[{9, 2}], ArrowBox[{9, 1}], ArrowBox[{9, 3}], 
       ArrowBox[{9, 10}], ArrowBox[{10, 1}], ArrowBox[{11, 1}], 
       ArrowBox[{11, 10}], ArrowBox[{12, 1}], ArrowBox[{13, 4}]}], {
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{0.4535247013274558, 1.9434621292767646}, \
{1.453524701327456, 2.0434621292767647}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          
          TemplateBox[{
           "\"GetAtomicScatteringFactor\"",
            "paclet:MaXrd/ref/GetAtomicScatteringFactor"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {0.9535247013274558, 1.9934621292767647}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{1.301239810795153, 1.4728695561457459}, \
{1.9012398107951531, 1.572869556145746}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          
          TemplateBox[{
           "\"StructureFactor\"","paclet:MaXrd/ref/StructureFactor"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {1.601239810795153, 1.522869556145746}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{0.6335247012429437, 1.002276983131048}, \
{1.2735247012429436, 1.1022769831310482}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          
          TemplateBox[{
           "\"GetCrystalMetric\"","paclet:MaXrd/ref/GetCrystalMetric"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {0.9535247012429436, 1.0522769831310481}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{1.0538346538967183, 0.7114347780728729}, \
{1.6538346538967184, 0.811434778072873}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          
          TemplateBox[{
           "\"GetSymmetryData\"","paclet:MaXrd/ref/GetSymmetryData"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {1.3538346538967183, 0.761434778072873}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{1.4286449674884716, 0.7114347780062266}, \
{2.2686449674884717, 0.8114347780062267}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          
          TemplateBox[{
           "\"GetSymmetryOperations\"",
            "paclet:MaXrd/ref/GetSymmetryOperations"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {1.8486449674884715, 0.7614347780062266}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{2.0489549202205937, 1.0022769829565659}, \
{2.448954920220594, 1.102276982956566}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          TemplateBox[{"\"InputCheck\"","paclet:MaXrd/ref/InputCheck"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {2.248954920220594, 1.052276982956566}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{1.8618597161927295, 1.472869556001964}, \
{2.9418597161927296, 1.572869556001964}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          
          TemplateBox[{
           "\"SymmetryEquivalentPositions\"",
            "paclet:MaXrd/ref/SymmetryEquivalentPositions"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {2.4018597161927295, 1.522869556001964}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{1.9089549203896194, 1.943462129102282}, \
{2.5889549203896194, 2.043462129102282}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          
          TemplateBox[{
           "\"SystematicAbsentQ\"","paclet:MaXrd/ref/SystematicAbsentQ"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {2.2489549203896195, 1.993462129102282}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{1.6086449677619608, 2.2343043341964033}, \
{2.0886449677619607, 2.334304334196403}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          TemplateBox[{"\"$CrystalData\"","paclet:MaXrd/ref/$CrystalData"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {1.8486449677619607, 2.284304334196403}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{0.8864294972717712, 2.9957391123803534}, \
{1.3264294972717712, 3.095739112380353}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          TemplateBox[{"\"GetElements\"","paclet:MaXrd/ref/GetElements"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {1.1064294972717712, 3.045739112380353}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{0.025809591859758285, 2.414054702407783}, \
{0.5858095918597583, 2.514054702407783}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          TemplateBox[{"\"$PeriodicTable\"","paclet:MaXrd/ref/$PeriodicTable"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {0.3058095918597583, 2.464054702407783}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{-0.18, 1.4728695562895262}, {0.18, 1.5728695562895263}], \

       {GrayLevel[0], InsetBox[
         StyleBox[
          TemplateBox[{"\"$MaXrdPath\"","paclet:MaXrd/ref/$MaXrdPath"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {0., 1.5228695562895262}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{0.7664294969982837, -0.05}, {1.4464294969982838, 0.05}], \

       {GrayLevel[0], InsetBox[
         StyleBox[
          
          TemplateBox[{
           "\"ToStandardSetting\"","paclet:MaXrd/ref/ToStandardSetting"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {1.1064294969982837, 0.}]}}}},
    ContentSelectable->True],
   Annotation[#, 
    VertexCoordinateRules -> {{0.9535247013274558, 1.9934621292767647`}, {
     1.601239810795153, 1.522869556145746}, {0.9535247012429436, 
     1.0522769831310481`}, {1.3538346538967183`, 0.761434778072873}, {
     1.8486449674884715`, 0.7614347780062266}, {2.248954920220594, 
     1.052276982956566}, {2.4018597161927295`, 1.522869556001964}, {
     2.2489549203896195`, 1.993462129102282}, {1.8486449677619607`, 
     2.284304334196403}, {1.1064294972717712`, 3.045739112380353}, {
     0.3058095918597583, 2.464054702407783}, {0., 1.5228695562895262`}, {
     1.1064294969982837`, 0.}}]& ],
  AspectRatio->Automatic,
  FrameTicks->None,
  ImageSize->Large,
  PlotRange->All,
  PlotRangePadding->Scaled[0.1]]], "Output",
 CellChangeTimes->{{3.714300478588175*^9, 3.714300501873349*^9}, {
   3.714301176558923*^9, 3.7143011865620737`*^9}, 3.71430372541861*^9, 
   3.717950985224616*^9, 3.73009738066224*^9, 3.730097792102697*^9, 
   3.730359120287963*^9, 3.737976291268063*^9, 3.738379129154327*^9},
 CellLabel->"Out[2]=",
 CellID->1676665598,ExpressionUUID->"c332d2a3-daec-47aa-ad09-4f644937b0e7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RelatedFunctionsGraph", "[", 
  RowBox[{"StructureFactor", ",", 
   RowBox[{"\"\<Limit\>\"", "\[Rule]", "Infinity"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.714303719772603*^9, 3.71430372058781*^9}, {
  3.730097796073698*^9, 3.73009779697725*^9}},
 CellLabel->"In[3]:=",
 CellID->1413021396,ExpressionUUID->"ee588428-3ecf-4620-a7a2-8f668e35df6d"],

Cell[BoxData[
 GraphicsBox[
  TagBox[GraphicsGroupBox[{GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGAQBmIQfeB3w9U/Nm/t5a9InghqfGMfU8v+/c+5h/YlZ3cU
x57/ZD+xlAHMN7l3asWr5Mf2NUfTLmfvfmb/dZIEUP0f+z9+e3UjWa7Z+6zr
dlq57qf9jrCsvamnPtrf+vfoxfNV9+wtcp4U/tTcbr/NL5ezYsYXewYoOCal
Crbvwh6FBXvffrWv6OUD80+4TL2Sa/LV/lzt1m0Tcj7az1qfX2Wk+9k+hM09
eOX3z/bqXv6rH9l9sD9wR0DsX8JX+y8nAsDuAZnJIXPO9rHkiddu9z/C7Zlm
z9v1bPd3+w7+UB2fqcfsjzgl2MWe+m2vd2Tur6zF9+0PqEwDu2/njltgfg33
LLB/vuSsBKuHhM9f+0tuzGD3AQDj1Jzu
      "], 
      {RGBColor[0.5, 0., 0.], Arrowheads[{{0.03492392878474471, 0.7}}], 
       ArrowBox[{1, 2}], ArrowBox[{3, 2}], ArrowBox[{3, 1}], 
       ArrowBox[{3, 17}], ArrowBox[{3, 18}], ArrowBox[{4, 2}], 
       ArrowBox[{4, 7}], ArrowBox[{4, 8}], ArrowBox[{5, 2}], ArrowBox[{5, 7}],
        ArrowBox[{5, 8}], ArrowBox[{5, 13}], ArrowBox[{6, 2}], 
       ArrowBox[{6, 1}], ArrowBox[{6, 3}], ArrowBox[{6, 4}], ArrowBox[{6, 5}],
        ArrowBox[{6, 18}], ArrowBox[{6, 7}], ArrowBox[{6, 8}], 
       ArrowBox[{7, 2}], ArrowBox[{7, 17}], ArrowBox[{7, 18}], 
       ArrowBox[{8, 2}], ArrowBox[{9, 2}], ArrowBox[{9, 1}], ArrowBox[{9, 3}],
        ArrowBox[{9, 10}], ArrowBox[{9, 4}], ArrowBox[{9, 6}], 
       ArrowBox[{9, 17}], ArrowBox[{9, 18}], ArrowBox[{9, 8}], 
       ArrowBox[{9, 19}], ArrowBox[{10, 1}], ArrowBox[{10, 17}], 
       ArrowBox[{10, 18}], ArrowBox[{11, 1}], ArrowBox[{11, 10}], 
       ArrowBox[{11, 6}], ArrowBox[{11, 17}], ArrowBox[{11, 18}], 
       ArrowBox[{12, 1}], ArrowBox[{12, 9}], ArrowBox[{12, 11}], 
       ArrowBox[{12, 14}], ArrowBox[{12, 15}], ArrowBox[{12, 16}], 
       ArrowBox[{13, 4}], ArrowBox[{13, 6}], ArrowBox[{14, 4}], 
       ArrowBox[{14, 6}], ArrowBox[{15, 4}], ArrowBox[{15, 6}], 
       ArrowBox[{15, 13}], ArrowBox[{16, 4}], ArrowBox[{16, 5}], 
       ArrowBox[{16, 6}], ArrowBox[{16, 13}], ArrowBox[{16, 19}], 
       ArrowBox[{17, 6}], ArrowBox[{18, 17}], ArrowBox[{19, 13}]}], {
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{0.4136947793957617, 0.8407865436764302}, \
{1.4136947793957617, 0.9407865436764303}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          
          TemplateBox[{
           "\"GetAtomicScatteringFactor\"",
            "paclet:MaXrd/ref/GetAtomicScatteringFactor"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {0.9136947793957617, 0.8907865436764303}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{0.2565171074667137, 1.1256262321840411}, \
{0.8565171074667137, 1.2256262321840412}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          
          TemplateBox[{
           "\"StructureFactor\"","paclet:MaXrd/ref/StructureFactor"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {0.5565171074667137, 1.1756262321840412}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{0.23651710741556048, 0.5559468552329634}, \
{0.8765171074155604, 0.6559468552329635}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          
          TemplateBox[{
           "\"GetCrystalMetric\"","paclet:MaXrd/ref/GetCrystalMetric"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {0.5565171074155605, 0.6059468552329634}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{0.41037856377931475, 1.7315730873346045}, \
{1.0103785637793148, 1.8315730873346046}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          
          TemplateBox[{
           "\"GetSymmetryData\"","paclet:MaXrd/ref/GetSymmetryData"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {0.7103785637793147, 1.7815730873346045}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{-0.07598459752324366, 1.5551418876112562}, \
{0.7640154024767563, 1.6551418876112562}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          
          TemplateBox[{
           "\"GetSymmetryOperations\"",
            "paclet:MaXrd/ref/GetSymmetryOperations"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {0.3440154024767563, 1.6051418876112562}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{0.9119134329832559, 0.42918126814691465}, \
{1.3119134329832558, 0.5291812681469147}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          TemplateBox[{"\"InputCheck\"","paclet:MaXrd/ref/InputCheck"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {1.1119134329832558, 0.47918126814691464}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{-0.44951577157427647, 1.2372238510362144}, \
{0.6304842284257236, 1.3372238510362144}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          
          TemplateBox[{
           "\"SymmetryEquivalentPositions\"",
            "paclet:MaXrd/ref/SymmetryEquivalentPositions"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {0.09048422842572357, 1.2872238510362144}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{-0.34, 0.8407865437584738}, {0.34, 0.9407865437584739}], \

       {GrayLevel[0], InsetBox[
         StyleBox[
          
          TemplateBox[{
           "\"SystematicAbsentQ\"","paclet:MaXrd/ref/SystematicAbsentQ"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {0., 0.8907865437584739}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{1.1305421690936426, 0.8407865435943866}, \
{1.6105421690936426, 0.9407865435943867}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          TemplateBox[{"\"$CrystalData\"","paclet:MaXrd/ref/$CrystalData"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {1.3705421690936426, 0.8907865435943867}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{1.1053000549341767, 1.0390051972454446}, \
{1.5453000549341767, 1.1390051972454447}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          TemplateBox[{"\"GetElements\"","paclet:MaXrd/ref/GetElements"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {1.3253000549341767, 1.0890051972454446}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{0.9185344679514811, 1.197964215567113}, \
{1.4785344679514811, 1.2979642155671132}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          TemplateBox[{"\"$PeriodicTable\"","paclet:MaXrd/ref/$PeriodicTable"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {1.198534467951481, 1.2479642155671131}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{0.8353528873239653, 1.2861798154781325}, \
{1.1953528873239652, 1.3861798154781326}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          TemplateBox[{"\"$MaXrdPath\"","paclet:MaXrd/ref/$MaXrdPath"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {1.0153528873239652, 1.3361798154781326}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{0.37037856361934224, -0.04999999994523115}, \
{1.0503785636193423, 0.05000000005476886}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          
          TemplateBox[{
           "\"ToStandardSetting\"","paclet:MaXrd/ref/ToStandardSetting"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {0.7103785636193423, 5.476885611699345*^-11}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{0.8770109949322231, -0.05}, {1.357010994932223, 0.05}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          TemplateBox[{"\"$PointGroups\"","paclet:MaXrd/ref/$PointGroups"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {1.1170109949322231, 0.}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{1.243374156250624, 0.12643119969045197}, \
{1.723374156250624, 0.22643119969045195}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          TemplateBox[{"\"$SpaceGroups\"","paclet:MaXrd/ref/$SpaceGroups"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {1.483374156250624, 0.17643119969045196}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{1.4769053303302033, 0.444349236242729}, \
{1.9969053303302033, 0.544349236242729}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          
          TemplateBox[{
           "\"$GroupSymbolRedirect\"","paclet:MaXrd/ref/$GroupSymbolRedirect"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {1.7369053303302033, 0.494349236242729}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{-0.28951577164547093, 0.4443492364644829}, \
{0.4704842283545291, 0.5443492364644829}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          
          TemplateBox[{
           "\"CrystalFormulaUnits\"","paclet:MaXrd/ref/CrystalFormulaUnits"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {0.09048422835452907, 0.49434923646448287}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{0.06401540234846781, 0.12643119984391088}, \
{0.6240154023484679, 0.22643119984391086}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          TemplateBox[{"\"CrystalDensity\"","paclet:MaXrd/ref/CrystalDensity"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {0.34401540234846784, 0.17643119984391087}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{1.5873895587915234, 0.8407865435123432}, \
{2.0673895587915236, 0.9407865435123433}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          TemplateBox[{"\"GetLaueClass\"","paclet:MaXrd/ref/GetLaueClass"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {1.8273895587915234, 0.8907865435123432}]}}}},
    ContentSelectable->True],
   Annotation[#, VertexCoordinateRules -> CompressedData["
1:eJxTTMoPSmViYGAQBmIQfeB3w9U/Nm/t5a9InghqfGMfU8v+/c+5h/YlZ3cU
x57/ZD+xlAHMN7l3asWr5Mf2NUfTLmfvfmb/dZIEUP0f+z9+e3UjWa7Z+6zr
dlq57qf9jrCsvamnPtrf+vfoxfNV9+wtcp4U/tTcbr/NL5ezYsYXewYoOCal
Crbvwh6FBXvffrWv6OUD80+4TL2Sa/LV/lzt1m0Tcj7az1qfX2Wk+9k+hM09
eOX3z/bqXv6rH9l9sD9wR0DsX8JX+y8nAsDuAZnJIXPO9rHkiddu9z/C7Zlm
z9v1bPd3+w7+UB2fqcfsjzgl2MWe+m2vd2Tur6zF9+0PqEwDu2/njltgfg33
LLB/vuSsBKuHhM9f+0tuzGD3AQDj1Jzu
     "]]& ],
  AspectRatio->Automatic,
  FrameTicks->None,
  ImageSize->Large,
  PlotRange->All,
  PlotRangePadding->Scaled[0.1]]], "Output",
 CellChangeTimes->{3.714303725731942*^9, 3.7179509878225718`*^9, 
  3.7300973865915623`*^9, 3.7300977977083*^9, 3.730359122514431*^9, 
  3.7379762968335648`*^9, 3.738379133862492*^9},
 CellLabel->"Out[3]=",
 CellID->837772151,ExpressionUUID->"4b106412-4a4d-4f49-a2fa-1729886157d3"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\"DirectOnly\"", "ExampleSubsection",ExpressionUUID->
   "6cc1c541-8002-4078-b348-9960d129e31a"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.7143013452647867`*^9, 3.714301347764284*^9}},
 CellID->1295379749,ExpressionUUID->"9518069e-bb2f-4016-b9f3-526cb37f0ebc"],

Cell[TextData[{
 "It is often the case that the function returns chains connection various \
functions in the ",
 Cell[BoxData[
 "MaXrd`"], "InlineFormula",ExpressionUUID->
  "f942b981-ffca-46a3-b6c5-3171ed6deffd"],
 "-context. If we only want to see the functions that are used explicitly in \
the function, set ",
 Cell[BoxData["\<\"DirectOnly\"\>"], "InlineFormula",ExpressionUUID->
  "b1dbfd14-7192-45af-b423-af116a8ed958"],
 " to ",
 Cell[BoxData[
  ButtonBox["True",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/True"]], "InlineFormula",ExpressionUUID->
  "46219c60-a591-4196-a5bf-69955b6369a4"],
 "."
}], "ExampleText",
 CellChangeTimes->{{3.714303757019094*^9, 3.7143037644712763`*^9}, {
  3.714303826039802*^9, 3.714303949172628*^9}, {3.743836599677808*^9, 
  3.743836599677946*^9}},
 CellID->1940512160,ExpressionUUID->"aed24ed1-bb6b-47b4-95d1-7a6ac1c5696b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RelatedFunctionsGraph", "[", "\"\<ReflectionList\>\"", 
  "]"}]], "Input",
 CellChangeTimes->{{3.714300514482111*^9, 3.714300515710894*^9}, {
  3.714301359152061*^9, 3.714301385408659*^9}, {3.73009780687335*^9, 
  3.730097807705043*^9}, {3.7420285649189377`*^9, 3.7420285683494587`*^9}},
 CellLabel->"In[1]:=",
 CellID->716128294,ExpressionUUID->"1ad40c72-a0ad-48d6-8317-0778a413367c"],

Cell[BoxData[
 GraphicsBox[
  TagBox[GraphicsGroupBox[{
     GraphicsComplexBox[{{1.4212000304840664`, 1.2307953303647652`}, {
      0.8058023653814426, 1.5860953380318306`}, {1.7765000380129856`, 
      0.6153976651823826}, {0.7106000153157112, 2.461590660665723}, {0., 
      1.2307953304923793`}, {1.7765000382340195`, 1.8461929954195337`}, {
      0.7106000150946771, 1.914211011921907*^-10}, {2.1318000455419046`, 
      0.}, {2.842400060968133, 1.2307953301095371`}}, 
      {RGBColor[0.5, 0., 0.], Arrowheads[{{0.029588660233192447`, 0.7}}], 
       ArrowBox[{1, 2}], ArrowBox[{3, 2}], ArrowBox[{3, 1}], ArrowBox[{4, 2}],
        ArrowBox[{5, 2}], ArrowBox[{6, 1}], ArrowBox[{6, 3}], 
       ArrowBox[{7, 3}], ArrowBox[{8, 3}], ArrowBox[{9, 3}]}], {
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{1.1012000304840663, 1.1807953303647651}, \
{1.7412000304840665, 1.2807953303647652}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          
          TemplateBox[{
           "\"GetCrystalMetric\"","paclet:MaXrd/ref/GetCrystalMetric"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {1.4212000304840664, 1.2307953303647652}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{0.5258023653814425, 1.5360953380318305}, \
{1.0858023653814426, 1.6360953380318306}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          TemplateBox[{"\"ReflectionList\"","paclet:MaXrd/ref/ReflectionList"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {0.8058023653814426, 1.5860953380318306}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{1.5765000380129857, 0.5653976651823825}, \
{1.9765000380129856, 0.6653976651823826}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          TemplateBox[{"\"InputCheck\"","paclet:MaXrd/ref/InputCheck"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {1.7765000380129856, 0.6153976651823826}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{0.030600015315711104, 2.4115906606657234}, \
{1.3906000153157112, 2.511590660665723}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          
          TemplateBox[{
           "\"MergeSymmetryEquivalentReflections\"",
            "paclet:MaXrd/ref/MergeSymmetryEquivalentReflections"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {0.7106000153157112, 2.461590660665723}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{-0.34, 1.1807953304923793}, {0.34, 1.2807953304923794}], \

       {GrayLevel[0], InsetBox[
         StyleBox[
          
          TemplateBox[{
           "\"SystematicAbsentQ\"","paclet:MaXrd/ref/SystematicAbsentQ"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {0., 1.2307953304923793}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{1.5365000382340195, 1.7961929954195337}, \
{2.0165000382340192, 1.8961929954195338}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          TemplateBox[{"\"$CrystalData\"","paclet:MaXrd/ref/$CrystalData"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {1.7765000382340195, 1.8461929954195337}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{0.33060001509467707, -0.0499999998085789}, \
{1.090600015094677, 0.050000000191421104}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          
          TemplateBox[{
           "\"CrystalFormulaUnits\"","paclet:MaXrd/ref/CrystalFormulaUnits"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {0.7106000150946771, 1.914211011921907*^-10}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{1.7918000455419045, -0.05}, {2.4718000455419045, 0.05}], \

       {GrayLevel[0], InsetBox[
         StyleBox[
          
          TemplateBox[{
           "\"ToStandardSetting\"","paclet:MaXrd/ref/ToStandardSetting"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {2.1318000455419046, 0.}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{2.562400060968133, 1.180795330109537}, \
{3.1224000609681326, 1.2807953301095372}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          TemplateBox[{"\"$PeriodicTable\"","paclet:MaXrd/ref/$PeriodicTable"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {2.842400060968133, 1.2307953301095371}]}}}},
    ContentSelectable->True],
   Annotation[#, 
    VertexCoordinateRules -> {{1.4212000304840664`, 1.2307953303647652`}, {
     0.8058023653814426, 1.5860953380318306`}, {1.7765000380129856`, 
     0.6153976651823826}, {0.7106000153157112, 2.461590660665723}, {0., 
     1.2307953304923793`}, {1.7765000382340195`, 1.8461929954195337`}, {
     0.7106000150946771, 1.914211011921907*^-10}, {2.1318000455419046`, 0.}, {
     2.842400060968133, 1.2307953301095371`}}]& ],
  AspectRatio->Automatic,
  FrameTicks->None,
  ImageSize->Large,
  PlotRange->All,
  PlotRangePadding->Scaled[0.1]]], "Output",
 CellChangeTimes->{{3.714301374840774*^9, 3.714301385829549*^9}, {
   3.714303951710787*^9, 3.714303968980461*^9}, 3.717950998589797*^9, 
   3.730097398925725*^9, 3.7300977517772617`*^9, 3.730097808417262*^9, 
   3.73035913427495*^9, 3.7379763036003437`*^9, 3.738379138635701*^9, 
   3.742028570911312*^9},
 CellLabel->"Out[1]=",
 CellID->187832264,ExpressionUUID->"8d8ba03e-7c16-4f95-9c05-24c7aa33c807"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RelatedFunctionsGraph", "[", 
  RowBox[{"\"\<ReflectionList\>\"", ",", 
   RowBox[{"\"\<DirectOnly\>\"", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.714303958737653*^9, 3.71430396294617*^9}, {
  3.730097814146253*^9, 3.730097815057097*^9}, {3.742028577776258*^9, 
  3.742028579156394*^9}},
 CellLabel->"In[2]:=",
 CellID->1935877679,ExpressionUUID->"afb15da3-3812-42b2-855d-24a8dbbfc3c6"],

Cell[BoxData[
 GraphicsBox[
  TagBox[GraphicsGroupBox[{
     GraphicsComplexBox[{{1.269867544451131*^-10, 1.4142135625318282`}, {
      0.7071067812659142, 0.7071067812976606}, {0., 
      1.9047974308961102`*^-10}, {1.4142135623413488`, 0.}, {
      1.414213562595322, 1.4142135623413479`}}, 
      {RGBColor[0.5, 0., 0.], Arrowheads[{{0.03789428479308933, 0.7}}], 
       ArrowBox[{1, 2}], ArrowBox[{3, 2}], ArrowBox[{4, 2}], 
       ArrowBox[{5, 2}]}], {
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{-0.31999999987301325, 1.3642135625318281}, \
{0.32000000012698676, 1.4642135625318282}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          
          TemplateBox[{
           "\"GetCrystalMetric\"","paclet:MaXrd/ref/GetCrystalMetric"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {1.269867544451131*^-10, 1.4142135625318282}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{0.42710678126591417, 0.6571067812976605}, \
{0.9871067812659142, 0.7571067812976606}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          TemplateBox[{"\"ReflectionList\"","paclet:MaXrd/ref/ReflectionList"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {0.7071067812659142, 0.7071067812976606}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{-0.2, -0.04999999980952026}, \
{0.2, 0.050000000190479746}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          TemplateBox[{"\"InputCheck\"","paclet:MaXrd/ref/InputCheck"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {0., 1.9047974308961102*^-10}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{0.7342135623413487, -0.05}, {2.094213562341349, 0.05}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          
          TemplateBox[{
           "\"MergeSymmetryEquivalentReflections\"",
            "paclet:MaXrd/ref/MergeSymmetryEquivalentReflections"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {1.4142135623413488, 0.}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{1.074213562595322, 1.3642135623413478}, \
{1.7542135625953221, 1.464213562341348}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          
          TemplateBox[{
           "\"SystematicAbsentQ\"","paclet:MaXrd/ref/SystematicAbsentQ"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {1.414213562595322, 1.4142135623413479}]}}}},
    ContentSelectable->True],
   Annotation[#, 
    VertexCoordinateRules -> {{1.269867544451131*^-10, 1.4142135625318282`}, {
     0.7071067812659142, 0.7071067812976606}, {0., 
     1.9047974308961102`*^-10}, {1.4142135623413488`, 0.}, {1.414213562595322,
      1.4142135623413479`}}]& ],
  AspectRatio->Automatic,
  FrameTicks->None,
  ImageSize->Large,
  PlotRange->All,
  PlotRangePadding->Scaled[0.1]]], "Output",
 CellChangeTimes->{3.7300975081572447`*^9, 3.730097762424293*^9, 
  3.7300978159587727`*^9, 3.730359143736992*^9, 3.737976317356494*^9, 
  3.738379142445003*^9, 3.742028579612801*^9},
 CellLabel->"Out[2]=",
 CellID->995624399,ExpressionUUID->"82264079-f570-4f9e-b34a-671f6814218f"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\"ShowDependent\"", "ExampleSubsection",ExpressionUUID->
   "17e5bc2d-90e8-41e3-bcf7-37d0a1371eff"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.7143039884992313`*^9, 3.7143039924082203`*^9}, 
   3.730097820451539*^9},
 CellID->973292781,ExpressionUUID->"03c57e36-53ba-4393-9415-2d7f0b871283"],

Cell[TextData[{
 "By setting the option ",
 Cell[BoxData[
  RowBox[{"\<\"ShowDependent\"\>", "\[Rule]", "True"}]], "InlineFormula",
  ExpressionUUID->"e46d49b0-305c-457c-8073-cf95aa8f30cd"],
 ", we can \[OpenCurlyDoubleQuote]flip\[CloseCurlyDoubleQuote] the question: \
Which functions depend on ",
 Cell[BoxData[
  StyleBox["f", "TI"]], "InlineFormula",ExpressionUUID->
  "3e9fcb42-ee43-4b1a-9949-6fec6ba0e353"],
 "?"
}], "ExampleText",
 CellChangeTimes->{{3.714304222427353*^9, 3.714304288875581*^9}},
 CellID->1068446036,ExpressionUUID->"bad45f08-c3dd-40b6-b01b-737ad81ee680"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RelatedFunctionsGraph", "[", 
  RowBox[{"\"\<ToStandardSetting\>\"", ",", 
   RowBox[{"\"\<ShowDependent\>\"", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.714303277514812*^9, 3.714303279050353*^9}, {
  3.730097824537238*^9, 3.7300978252003717`*^9}, {3.74202858603063*^9, 
  3.742028587367955*^9}},
 CellLabel->"In[1]:=",
 CellID->1051086967,ExpressionUUID->"9ac35ab5-36c5-49f3-9943-20f8d66d7c48"],

Cell[BoxData[
 GraphicsBox[
  TagBox[GraphicsGroupBox[{
     GraphicsComplexBox[{{1., 0.8660254038592663}, {0.5000000000518421, 
      1.732050807673636}, {0., 0.8660254039490595}, {0.4999999998963157, 
      1.3468981485686982`*^-10}, {1.4999999998703948`, 0.}, {2., 
      0.86602540367968}, {1.5000000001814473`, 1.7320508075389462`}}, 
      {RGBColor[0.5, 0., 0.], Arrowheads[{{0.03384563758389261, 0.7}}], 
       ArrowBox[{1, 2}], ArrowBox[{1, 3}], ArrowBox[{1, 4}], ArrowBox[{1, 5}],
        ArrowBox[{1, 6}], ArrowBox[{1, 7}]}], {
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{0.6599999999999999, 0.8160254038592663}, \
{1.34, 0.9160254038592663}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          
          TemplateBox[{
           "\"ToStandardSetting\"","paclet:MaXrd/ref/ToStandardSetting"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {1., 0.8660254038592663}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{0.2000000000518421, 1.682050807673636}, \
{0.8000000000518421, 1.782050807673636}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          
          TemplateBox[{
           "\"GetSymmetryData\"","paclet:MaXrd/ref/GetSymmetryData"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {0.5000000000518421, 1.732050807673636}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{-0.34, 0.8160254039490594}, {0.34, 0.9160254039490595}], \

       {GrayLevel[0], InsetBox[
         StyleBox[
          
          TemplateBox[{
           "\"ImportCrystalData\"","paclet:MaXrd/ref/ImportCrystalData"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {0., 0.8660254039490595}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{0.2999999998963157, -0.04999999986531019}, \
{0.6999999998963158, 0.05000000013468982}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          TemplateBox[{"\"InputCheck\"","paclet:MaXrd/ref/InputCheck"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {0.4999999998963157, 1.3468981485686982*^-10}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{0.8199999998703947, -0.05}, {2.179999999870395, 0.05}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          
          TemplateBox[{
           "\"MergeSymmetryEquivalentReflections\"",
            "paclet:MaXrd/ref/MergeSymmetryEquivalentReflections"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {1.4999999998703948, 0.}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{1.72, 0.8160254036796799}, \
{2.2800000000000002, 0.91602540367968}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          TemplateBox[{"\"ReflectionList\"","paclet:MaXrd/ref/ReflectionList"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {2., 0.86602540367968}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{1.0600000001814474, 1.6820508075389462}, \
{1.9400000001814472, 1.7820508075389463}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          
          TemplateBox[{
           "\"UnitCellTransformation\"",
            "paclet:MaXrd/ref/UnitCellTransformation"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {1.5000000001814473, 1.7320508075389462}]}}}},
    ContentSelectable->True],
   Annotation[#, 
    VertexCoordinateRules -> {{1., 0.8660254038592663}, {0.5000000000518421, 
     1.732050807673636}, {0., 0.8660254039490595}, {0.4999999998963157, 
     1.3468981485686982`*^-10}, {1.4999999998703948`, 0.}, {2., 
     0.86602540367968}, {1.5000000001814473`, 1.7320508075389462`}}]& ],
  AspectRatio->Automatic,
  FrameTicks->None,
  ImageSize->Large,
  PlotRange->All,
  PlotRangePadding->Scaled[0.1]]], "Output",
 CellChangeTimes->{3.714304499787365*^9, 3.717951008965307*^9, 
  3.730097773185382*^9, 3.730097825957588*^9, 3.730359160052116*^9, 
  3.7379763237635612`*^9, 3.73837914706279*^9, 3.742028587898741*^9},
 CellLabel->"Out[1]=",
 CellID->672056977,ExpressionUUID->"7b504dec-3eb6-4970-8ac5-f6223526753d"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell[
  "Applications", "ExampleSection",ExpressionUUID->
   "d3369bc9-aa55-4fa3-9aa9-45e495397c69"],
  $Line = 0; Null]], "ExampleSection",
 CellID->258228157,ExpressionUUID->"e7c38a11-58ed-4b5e-a1d6-f2949c00c163"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Properties & Relations", "ExampleSection",ExpressionUUID->
   "cc73455e-c948-4d8f-bd56-46d0efcef872"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2123667759,ExpressionUUID->"90f4d4ad-32ab-49e9-abae-6d1200d3d9cf"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Possible Issues", "ExampleSection",ExpressionUUID->
   "8ed93047-cd7b-4397-8f93-02a93fc57361"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1305812373,ExpressionUUID->"5aec85ad-e491-4c67-be5d-811f98a3f8a0"],

Cell[TextData[{
 "Some functions will not return any graph, meaning they do not depend on any \
other ",
 Cell[BoxData[
 "MaXrd`"], "InlineFormula",ExpressionUUID->
  "93bde811-6ab2-479f-abbb-f53364c06a81"],
 "-functions;"
}], "ExampleText",
 CellChangeTimes->{{3.714304313112273*^9, 3.714304366421008*^9}, {
  3.743836595534069*^9, 3.7438365955341597`*^9}},
 CellID->1002610224,ExpressionUUID->"255fe383-fa1c-4b89-8458-c4fb1449519d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RelatedFunctionsGraph", "[", "\"\<$MaXrdPath\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.714301480933249*^9, 3.7143014826542892`*^9}, {
  3.714304375485833*^9, 3.7143043785478067`*^9}, {3.730097832665492*^9, 
  3.730097872479259*^9}, {3.742028593285467*^9, 3.7420285938304787`*^9}},
 CellLabel->"In[1]:=",
 CellID->1004896690,ExpressionUUID->"e5547bde-5742-4a0a-8c68-d8588aa0d1f2"],

Cell[BoxData[
 RowBox[{"{", "}"}]], "Output",
 CellChangeTimes->{
  3.714314646386385*^9, {3.730097835466877*^9, 3.730097875089281*^9}, 
   3.73035916666747*^9, 3.737976330880023*^9, 3.738379155178029*^9, {
   3.7420285984815683`*^9, 3.742028606917955*^9}},
 CellLabel->"Out[1]=",
 CellID->1735640704,ExpressionUUID->"0db82ec9-6ec5-4764-a111-b0387d0659d8"]
}, Open  ]],

Cell["It is likely that other functions depend on it:", "ExampleText",
 CellChangeTimes->{{3.714304382744005*^9, 3.714304416198531*^9}},
 CellID->1276449119,ExpressionUUID->"fc9561de-f6e0-42c6-b425-69206f32545f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RelatedFunctionsGraph", "[", 
  RowBox[{"\"\<$MaXrdPath\>\"", ",", 
   RowBox[{"\"\<ShowDependent\>\"", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.714304421870531*^9, 3.714304426446371*^9}, 
   3.730097878817025*^9, {3.742028602771504*^9, 3.74202860392272*^9}},
 CellLabel->"In[2]:=",
 CellID->1551672606,ExpressionUUID->"30f0c7e5-e1a6-41dc-89c4-b565abe43509"],

Cell[BoxData[
 GraphicsBox[
  TagBox[GraphicsGroupBox[{
     GraphicsComplexBox[{{1., 0.9510565163395498}, {0.6909830056762916, 
      1.9021130326513518`}, {0.19098300566727566`, 1.538841768690138}, {0., 
      0.951056516429343}, {0.190983005561718, 0.36327126413424926`}, {
      0.6909830055054951, 8.32428570518573*^-11}, {1.3090169942383099`, 0.}, {
      1.8090169942799448`, 0.3632712639163167}, {2., 0.9510565161599626}, {
      1.8090169944910621`, 1.5388417684722047`}, {1.309016994579905, 
      1.9021130325681086`}}, 
      {RGBColor[0.5, 0., 0.], Arrowheads[{{0.03384563758389261, 0.7}}], 
       ArrowBox[{1, 2}], ArrowBox[{1, 3}], ArrowBox[{1, 4}], ArrowBox[{1, 5}],
        ArrowBox[{1, 6}], ArrowBox[{1, 7}], ArrowBox[{1, 8}], 
       ArrowBox[{1, 9}], ArrowBox[{1, 10}], ArrowBox[{1, 11}]}], {
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{0.8200000000000001, 0.9010565163395498}, \
{1.18, 1.0010565163395497}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          TemplateBox[{"\"$MaXrdPath\"","paclet:MaXrd/ref/$MaXrdPath"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {1., 0.9510565163395498}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{0.25098300567629156, 1.8521130326513517}, \
{1.1309830056762915, 1.9521130326513518}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          
          TemplateBox[{
           "\"AttenuationCoefficient\"",
            "paclet:MaXrd/ref/AttenuationCoefficient"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {0.6909830056762916, 1.9021130326513518}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{-0.30901699433272434, 1.4888417686901378}, \
{0.6909830056672757, 1.588841768690138}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          
          TemplateBox[{
           "\"GetAtomicScatteringFactor\"",
            "paclet:MaXrd/ref/GetAtomicScatteringFactor"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {0.19098300566727566, 1.538841768690138}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{-0.5, 0.9010565164293429}, {0.5, 1.001056516429343}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          
          TemplateBox[{
           "\"GetScatteringCrossSection\"",
            "paclet:MaXrd/ref/GetScatteringCrossSection"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {0., 0.951056516429343}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{-0.229016994438282, 0.31327126413424927}, \
{0.610983005561718, 0.41327126413424925}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          
          TemplateBox[{
           "\"RelatedFunctionsGraph\"",
            "paclet:MaXrd/ref/RelatedFunctionsGraph"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {0.190983005561718, 0.36327126413424926}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{0.4509830055054951, -0.049999999916757146}, \
{0.9309830055054951, 0.05000000008324286}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          TemplateBox[{"\"$CrystalData\"","paclet:MaXrd/ref/$CrystalData"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {0.6909830055054951, 8.32428570518573*^-11}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{1.0290169942383098, -0.05}, {1.5890169942383099, 0.05}], \

       {GrayLevel[0], InsetBox[
         StyleBox[
          TemplateBox[{"\"$PeriodicTable\"","paclet:MaXrd/ref/$PeriodicTable"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {1.3090169942383099, 0.}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{1.5690169942799448, 0.3132712639163167}, \
{2.0490169942799445, 0.4132712639163167}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          TemplateBox[{"\"$PointGroups\"","paclet:MaXrd/ref/$PointGroups"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {1.8090169942799448, 0.3632712639163167}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{1.76, 0.9010565161599625}, {2.24, 1.0010565161599625}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          TemplateBox[{"\"$SpaceGroups\"","paclet:MaXrd/ref/$SpaceGroups"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {2., 0.9510565161599626}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{1.3490169944910622, 1.4888417684722046}, \
{2.269016994491062, 1.5888417684722047}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          
          TemplateBox[{
           "\"$TransformationMatrices\"",
            "paclet:MaXrd/ref/$TransformationMatrices"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {1.8090169944910621, 1.5388417684722047}]}}, 
      {GrayLevel[1], EdgeForm[None], 
       RectangleBox[{1.029016994579905, 1.8521130325681086}, \
{1.589016994579905, 1.9521130325681086}], 
       {GrayLevel[0], InsetBox[
         StyleBox[
          
          TemplateBox[{
           "\"$MaXrdChangelog\"","paclet:MaXrd/ref/$MaXrdChangelog"},
           "HyperlinkPaclet"], "Program",
          StripOnInput->False,
          FontSize->11], {1.309016994579905, 1.9021130325681086}]}}}},
    ContentSelectable->True],
   Annotation[#, 
    VertexCoordinateRules -> {{1., 0.9510565163395498}, {0.6909830056762916, 
     1.9021130326513518`}, {0.19098300566727566`, 1.538841768690138}, {0., 
     0.951056516429343}, {0.190983005561718, 0.36327126413424926`}, {
     0.6909830055054951, 8.32428570518573*^-11}, {1.3090169942383099`, 0.}, {
     1.8090169942799448`, 0.3632712639163167}, {2., 0.9510565161599626}, {
     1.8090169944910621`, 1.5388417684722047`}, {1.309016994579905, 
     1.9021130325681086`}}]& ],
  AspectRatio->Automatic,
  FrameTicks->None,
  ImageSize->Large,
  PlotRange->All,
  PlotRangePadding->Scaled[0.1]]], "Output",
 CellChangeTimes->{{3.7179510548784027`*^9, 3.7179510697465763`*^9}, 
   3.730097879453985*^9, 3.730359174336845*^9, 3.737976332614335*^9, 
   3.738379157025708*^9, {3.742028600355147*^9, 3.742028607983796*^9}},
 CellLabel->"Out[2]=",
 CellID->774671001,ExpressionUUID->"4ccb1562-07f6-4b4b-be01-76c7ffbeb9cd"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Interactive Examples", "ExampleSection",ExpressionUUID->
   "1adfefd7-b9d8-4d56-9f20-86605fbf6508"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1653164318,ExpressionUUID->"bd7d80fd-26f3-4475-a798-3a8b9efd083f"],

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"RelatedFunctionsGraph", "[", 
    RowBox[{"StructureFactorTable", ",", 
     RowBox[{"\"\<Limit\>\"", "\[Rule]", "n"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"n", ",", "7"}], "}"}], ",", "1", ",", "60", ",", "1"}], 
    "}"}]}], "]"}]], "Input",
 CellID->918441626,ExpressionUUID->"3bf424df-bbad-47a9-9652-0bafcceaea0e"]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell[
  "Neat Examples", "ExampleSection",ExpressionUUID->
   "05ecc775-d0bb-4079-b20d-a34209434c1b"],
  $Line = 0; Null]], "ExampleSection",
 CellID->589267740,ExpressionUUID->"f7b575fe-0049-421e-b27e-23c281fa8c0a"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[TextData[{
   StyleBox["Mathematica",
    FontSlant->"Italic"],
   " code"
  }], "ExampleSection",ExpressionUUID->"42781a93-cb54-495d-8f24-4a929331478d"],
  $Line = 0; Null]], "ExampleSection",
 CellChangeTimes->{{3.714300155127119*^9, 3.7143001592152863`*^9}},
 CellID->987488955,ExpressionUUID->"53641ac7-ef4f-426e-a22b-fe7d4a78c0dd"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Options", "@", "RelatedFunctionsGraph"}], "=", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"\"\<Limit\>\"", "\[Rule]", "10"}], ",", "\[IndentingNewLine]", 
      
      RowBox[{"\"\<DirectOnly\>\"", "\[Rule]", "False"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"\"\<ShowDependent\>\"", "\[Rule]", "False"}]}], 
     "\[IndentingNewLine]", "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SetAttributes", "[", 
    RowBox[{"RelatedFunctionsGraph", ",", "HoldFirst"}], "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SyntaxInformation", "@", "RelatedFunctionsGraph"}], "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{"\"\<ArgumentsPattern\>\"", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"_", ",", 
       RowBox[{"OptionsPattern", "[", "]"}]}], "}"}]}], "\[IndentingNewLine]",
     "}"}]}], ";"}]}], "Input",
 InitializationCell->False,
 CellChangeTimes->{{3.714300336239785*^9, 3.7143003481828947`*^9}, {
  3.714301392171356*^9, 3.714301396387164*^9}, {3.7143023369906797`*^9, 
  3.714302341243659*^9}, {3.730122907680587*^9, 3.730122942623517*^9}, {
  3.7301241679174767`*^9, 3.7301241685476847`*^9}, {3.7567172014584103`*^9, 
  3.756717239957053*^9}},
 CellLabel->"In[828]:=",
 CellID->1781491491,ExpressionUUID->"d4c6e3dd-15a2-40ea-aa73-ce2bfbba0531"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"RelatedFunctionsGraph", "[", 
    RowBox[{"function_", ",", 
     RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
      "f", ",", "allf", ",", "deffile", ",", "import", ",", 
       "\[IndentingNewLine]", "finddepf", ",", "data", ",", "d", ",", "main", 
       ",", "g", ",", "done", ",", "new", ",", "x", ",", "X", ",", "c", ",", 
       "part"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"Loading", " ", "data"}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"f", "=", 
       RowBox[{"ToString", "@", 
        RowBox[{"HoldForm", "@", "function"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"allf", "=", 
       RowBox[{"First", "/@", 
        RowBox[{"DeleteCases", "[", 
         RowBox[{
          RowBox[{"Flatten", "@", 
           RowBox[{"First", "@", "$MaXrdFunctions"}]}], ",", "\"\<\>\""}], 
         "]"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"deffile", "=", 
       RowBox[{"FileNameJoin", "[", 
        RowBox[{"{", 
         RowBox[{
         "$MaXrdPath", ",", "\"\<Core\>\"", ",", "\"\<Definitions.m\>\""}], 
         "}"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"import", "=", 
       RowBox[{"StringJoin", "@", 
        RowBox[{"Check", "[", 
         RowBox[{
          RowBox[{"Import", "[", 
           RowBox[{"deffile", ",", "\"\<Text\>\""}], "]"}], ",", 
          RowBox[{"Abort", "[", "]"}]}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
      RowBox[{"(*", " ", 
       RowBox[{"Optional", ":", " ", 
        RowBox[{"Show", " ", "all", " ", "functions", " ", "depedent", " ", 
         RowBox[{"on", " ", "'"}], 
         RowBox[{"f", "'"}]}]}], " ", "*)"}], "\[IndentingNewLine]", "\t", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"OptionValue", "[", "\"\<ShowDependent\>\"", "]"}], ",", 
        "\[IndentingNewLine]", "\t", 
        RowBox[{
         RowBox[{"data", "=", 
          RowBox[{"StringCases", "[", 
           RowBox[{"import", ",", 
            RowBox[{
             RowBox[{"Shortest", "[", "\[IndentingNewLine]", "\t", 
              RowBox[{
               RowBox[{"c", ":", 
                RowBox[{"(", "allf", ")"}]}], "~~", 
               RowBox[{"{", 
                RowBox[{"\"\<[\>\"", ",", "\"\<:=\>\""}], "}"}], "~~", "d__", 
               "~~", "\"\<End[];\>\""}], "]"}], "\[RuleDelayed]", 
             RowBox[{"{", 
              RowBox[{"c", ",", "d"}], "}"}]}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", "\t", 
         RowBox[{"x", "=", 
          RowBox[{"Reap", "@", 
           RowBox[{"Do", "[", "\[IndentingNewLine]", "\t", 
            RowBox[{
             RowBox[{
              RowBox[{"c", "=", 
               RowBox[{"data", "\[LeftDoubleBracket]", 
                RowBox[{"i", ",", "1"}], "\[RightDoubleBracket]"}]}], ";", 
              "\[IndentingNewLine]", "\t", 
              RowBox[{"d", "=", 
               RowBox[{"Sort", "@", 
                RowBox[{"DeleteDuplicates", "@", 
                 RowBox[{"StringCases", "[", 
                  RowBox[{
                   RowBox[{"data", "\[LeftDoubleBracket]", 
                    RowBox[{"i", ",", "2"}], "\[RightDoubleBracket]"}], ",", 
                   "allf"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", "\t", 
              RowBox[{"d", "=", 
               RowBox[{"DeleteCases", "[", 
                RowBox[{"d", ",", "c"}], "]"}]}], ";", "\[IndentingNewLine]", 
              "\t", 
              RowBox[{"Sow", "[", 
               RowBox[{"c", "\[Rule]", "d"}], "]"}]}], ",", 
             "\[IndentingNewLine]", "\t", 
             RowBox[{"{", 
              RowBox[{"i", ",", 
               RowBox[{"Length", "@", "data"}]}], "}"}]}], "]"}]}]}], ";", 
         "\[IndentingNewLine]", "\t", 
         RowBox[{"x", "=", 
          RowBox[{"x", "\[LeftDoubleBracket]", 
           RowBox[{"2", ",", "1"}], "\[RightDoubleBracket]"}]}], ";", 
         "\[IndentingNewLine]", "\t", 
         RowBox[{"part", "=", 
          RowBox[{"First", "/@", 
           RowBox[{"Position", "[", 
            RowBox[{"x", ",", "f"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
         "\t", 
         RowBox[{"g", "=", 
          RowBox[{"First", "/@", 
           RowBox[{
           "x", "\[LeftDoubleBracket]", "part", "\[RightDoubleBracket]"}]}]}],
          ";", "\[IndentingNewLine]", "\t", 
         RowBox[{"g", "=", 
          RowBox[{"DeleteCases", "[", 
           RowBox[{"g", ",", "f"}], "]"}]}], ";", "\[IndentingNewLine]", 
         "\t\t", 
         RowBox[{"(*", " ", 
          RowBox[{
           RowBox[{"If", " ", "none"}], ",", " ", 
           RowBox[{"return", " ", "empty", " ", "list"}]}], " ", "*)"}], 
         "\[IndentingNewLine]", "\t\t", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"g", "\[Equal]", 
            RowBox[{"{", "}"}]}], ",", 
           RowBox[{"Return", "[", 
            RowBox[{"{", "}"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
         "\t", 
         RowBox[{"g", "=", 
          RowBox[{
           RowBox[{
            RowBox[{"f", "\[Rule]", "#"}], "&"}], "/@", "g"}]}], ";", 
         "\[IndentingNewLine]", "\t\t", 
         RowBox[{"Goto", "[", "\"\<GraphDataGenerated\>\"", "]"}]}]}], 
       "\[IndentingNewLine]", "\t", "]"}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "Function", " ", "for", " ", "finding", " ", "related", " ", 
        "functions"}], " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"finddepf", "[", "F_", "]"}], ":=", 
       RowBox[{"(", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"data", "=", 
          RowBox[{"StringCases", "[", "\[IndentingNewLine]", 
           RowBox[{"import", ",", 
            RowBox[{
             RowBox[{"Shortest", "[", "\[IndentingNewLine]", 
              RowBox[{
              "\"\<Begin[\\\"`Private`\\\"];\>\"", "~~", "Whitespace", "~~", 
               "\[IndentingNewLine]", 
               "\"\<(* ::Input::Initialization:: *)\\n\>\"", "~~", 
               "\[IndentingNewLine]", "F", "~~", 
               RowBox[{"{", 
                RowBox[{"\"\<[\>\"", ",", "\"\<:=\>\""}], "}"}], "~~", "d__", 
               "~~", "\"\<End[];\>\""}], "]"}], "\[IndentingNewLine]", 
             "\[RuleDelayed]", "d"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
         "\[IndentingNewLine]", "\t", 
         RowBox[{"(*", " ", 
          RowBox[{
          "Check", " ", "if", " ", "anything", " ", "is", " ", "found"}], " ",
           "*)"}], "\[IndentingNewLine]", "\t", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"data", "\[Equal]", 
            RowBox[{"{", "}"}]}], ",", 
           RowBox[{"Return", "[", 
            RowBox[{"{", "}"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
         "\[IndentingNewLine]", 
         RowBox[{"d", "=", 
          RowBox[{"DeleteDuplicates", "@", 
           RowBox[{"Flatten", "@", 
            RowBox[{"Sort", "@", 
             RowBox[{"StringCases", "[", 
              RowBox[{
               RowBox[{"First", "@", "data"}], ",", 
               RowBox[{"{", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"\"\<\\\"\>\"", "~~", "allf", "~~", "\"\<\\\"\>\""}],
                  ",", "\[IndentingNewLine]", 
                 RowBox[{"allf", "~~", "\"\<::\>\""}], ",", 
                 "\[IndentingNewLine]", "allf"}], "}"}]}], "]"}]}]}]}]}], ";",
          "\[IndentingNewLine]", 
         RowBox[{"d", "=", 
          RowBox[{"DeleteCases", "[", 
           RowBox[{"d", ",", "F"}], "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"d", "=", 
          RowBox[{"DeleteCases", "[", 
           RowBox[{"d", ",", 
            RowBox[{"x_", "/;", 
             RowBox[{"StringContainsQ", "[", 
              RowBox[{"x", ",", 
               RowBox[{"{", 
                RowBox[{"\"\<\\\"\>\"", ",", "\"\<::\>\""}], "}"}]}], 
              "]"}]}]}], "]"}]}]}], "\[IndentingNewLine]", ")"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", "Seed", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"main", "=", 
       RowBox[{"finddepf", "@", "f"}]}], ";", "\[IndentingNewLine]", "\t", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"main", "\[Equal]", 
         RowBox[{"{", "}"}]}], ",", 
        RowBox[{"Return", "[", 
         RowBox[{"{", "}"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", "Loop", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"g", "=", 
       RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"done", "=", 
       RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"new", "=", 
       RowBox[{"{", "f", "}"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"While", "[", 
       RowBox[{
        RowBox[{"new", "\[NotEqual]", 
         RowBox[{"{", "}"}]}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"x", "=", 
          RowBox[{"First", "@", "new"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"X", "=", 
          RowBox[{"finddepf", "@", "x"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"g", "=", 
          RowBox[{"DeleteDuplicates", "@", 
           RowBox[{"Join", "[", 
            RowBox[{"g", ",", 
             RowBox[{
              RowBox[{
               RowBox[{"#", "\[Rule]", "x"}], "&"}], "/@", "X"}]}], "]"}]}]}],
          ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
         RowBox[{"AppendTo", "[", 
          RowBox[{"done", ",", "x"}], "]"}], ";", "\[IndentingNewLine]", 
         RowBox[{"new", "=", 
          RowBox[{"Join", "[", 
           RowBox[{"new", ",", "X"}], "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"new", "=", 
          RowBox[{"Complement", "[", 
           RowBox[{"new", ",", "done"}], "]"}]}]}]}], "\[IndentingNewLine]", 
       "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Label", "[", "\"\<GraphDataGenerated\>\"", "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"g", "=", 
       RowBox[{"DeleteDuplicatesBy", "[", 
        RowBox[{"g", ",", "Sort"}], "]"}]}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", "\t", 
      RowBox[{"(*", " ", 
       RowBox[{"Optional", ":", " ", 
        RowBox[{"Only", " ", "directly", " ", "connected"}]}], " ", "*)"}], 
      "\[IndentingNewLine]", "\t", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"OptionValue", "[", "\"\<DirectOnly\>\"", "]"}], ",", 
        "\[IndentingNewLine]", "\t", 
        RowBox[{"g", "=", 
         RowBox[{"DeleteCases", "[", 
          RowBox[{"g", ",", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"a_", "\[Rule]", "b_"}], ")"}], "/;", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"a", "\[NotEqual]", "f"}], "&&", 
              RowBox[{"b", "\[NotEqual]", "f"}]}], ")"}]}]}], "]"}]}]}], 
       "]"}], ";", "\[IndentingNewLine]", "\t", "\[IndentingNewLine]", "\t", 
      RowBox[{"(*", " ", 
       RowBox[{"Optional", ":", " ", 
        RowBox[{"Limiting", " ", "graph"}]}], " ", "*)"}], 
      "\[IndentingNewLine]", "\t", 
      RowBox[{"g", "=", 
       RowBox[{"Take", "[", 
        RowBox[{"g", ",", 
         RowBox[{"UpTo", "@", 
          RowBox[{"OptionValue", "[", "\"\<Limit\>\"", "]"}]}]}], "]"}]}], 
      ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", "Plot", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{"A", ".", " ", "Older"}], " ", "than", " ", "version", " ", 
        "12"}], " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"$VersionNumber", "<", "12."}], ",", "\[IndentingNewLine]", 
        RowBox[{"GraphPlot", "[", 
         RowBox[{"g", ",", "\[IndentingNewLine]", 
          RowBox[{"DirectedEdges", "\[Rule]", "True"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"MultiedgeStyle", "\[Rule]", "False"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"DirectedEdges", "\[Rule]", "True"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"SelfLoopStyle", "\[Rule]", "None"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"VertexLabeling", "\[Rule]", "True"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"VertexRenderingFunction", "\[Rule]", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"{", "\[IndentingNewLine]", 
              RowBox[{"White", ",", 
               RowBox[{"EdgeForm", "[", "]"}], ",", 
               RowBox[{"Rectangle", "[", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"#", "-", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"0.02", "*", 
                    RowBox[{"StringLength", "@", "#2"}]}], ",", "0.05"}], 
                   "}"}]}], ",", 
                 RowBox[{"#", "+", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"0.02", "*", 
                    RowBox[{"StringLength", "@", "#2"}]}], ",", "0.05"}], 
                   "}"}]}]}], "]"}], ",", "Black", ",", "\[IndentingNewLine]", 
               RowBox[{"Text", "[", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"Style", "[", 
                  RowBox[{
                   RowBox[{"Hyperlink", "[", 
                    RowBox[{"#2", ",", " ", 
                    RowBox[{"\"\<paclet:MaXrd/ref/\>\"", "<>", "#2"}]}], 
                    "]"}], ",", "\[IndentingNewLine]", "11", ",", 
                   "\"\<Program\>\""}], "]"}], ",", "\[IndentingNewLine]", 
                 "#1"}], "]"}]}], "\[IndentingNewLine]", "}"}], "&"}], 
            ")"}]}], ",", "\[IndentingNewLine]", 
          RowBox[{"Method", "\[Rule]", "\"\<RadialDrawing\>\""}]}], "]"}], 
        ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{
          RowBox[{"B", ".", " ", "Version"}], " ", "12", " ", "and", " ", 
          "above"}], " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"GraphPlot", "[", 
         RowBox[{"g", ",", "\[IndentingNewLine]", 
          RowBox[{"DirectedEdges", "\[Rule]", "True"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"VertexLabels", "\[Rule]", "None"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"MultiedgeStyle", "\[Rule]", "False"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"DirectedEdges", "\[Rule]", "True"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"EdgeShapeFunction", "\[Rule]", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"Arrowheads", "[", 
                RowBox[{"{", 
                 RowBox[{"{", 
                  RowBox[{"Automatic", ",", "0.5"}], "}"}], "}"}], "]"}], ",", 
               RowBox[{"Arrow", "[", "#1", "]"}]}], "}"}], "&"}], ")"}]}], 
          ",", "\[IndentingNewLine]", 
          RowBox[{"SelfLoopStyle", "\[Rule]", "None"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"VertexShapeFunction", "\[Rule]", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"{", "\[IndentingNewLine]", 
              RowBox[{"White", ",", 
               RowBox[{"EdgeForm", "[", "]"}], ",", 
               RowBox[{"Rectangle", "[", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"#", "-", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"0.02", "*", 
                    RowBox[{"StringLength", "@", "#2"}]}], ",", "0.05"}], 
                   "}"}]}], ",", 
                 RowBox[{"#", "+", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"0.02", "*", 
                    RowBox[{"StringLength", "@", "#2"}]}], ",", "0.05"}], 
                   "}"}]}]}], "]"}], ",", "Black", ",", "\[IndentingNewLine]", 
               RowBox[{"Text", "[", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"Style", "[", 
                  RowBox[{
                   RowBox[{"Hyperlink", "[", 
                    RowBox[{"#2", ",", " ", 
                    RowBox[{"\"\<paclet:MaXrd/ref/\>\"", "<>", "#2"}]}], 
                    "]"}], ",", "\[IndentingNewLine]", "11", ",", 
                   "\"\<Program\>\""}], "]"}], ",", "\[IndentingNewLine]", 
                 "#1"}], "]"}]}], "\[IndentingNewLine]", "}"}], "&"}], 
            ")"}]}], ",", "\[IndentingNewLine]", 
          RowBox[{"Method", "\[Rule]", "\"\<RadialDrawing\>\""}]}], "]"}]}], 
       "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", "]"}]}], 
  ";"}]], "Input",
 InitializationCell->False,
 CellChangeTimes->{{3.682241896337058*^9, 3.6822419009563293`*^9}, {
   3.6822421030731297`*^9, 3.682242104796829*^9}, {3.682242247634622*^9, 
   3.682242293608499*^9}, {3.6822423242774973`*^9, 3.6822424939877663`*^9}, {
   3.682242524871819*^9, 3.682242610095582*^9}, {3.6822426631468697`*^9, 
   3.682242849688897*^9}, {3.682242985123843*^9, 3.682243000592795*^9}, {
   3.682243032221999*^9, 3.682243042906146*^9}, {3.682243121993319*^9, 
   3.682243187533738*^9}, {3.6822433171568623`*^9, 3.682243318068676*^9}, {
   3.6822433533711243`*^9, 3.68224345949043*^9}, {3.682243499999116*^9, 
   3.682243500570818*^9}, {3.682243559642397*^9, 3.682243568303032*^9}, {
   3.682243656585619*^9, 3.682243807041559*^9}, {3.682243892622666*^9, 
   3.682243979341007*^9}, {3.682244011749632*^9, 3.682244092729911*^9}, {
   3.6822441869470167`*^9, 3.682244221175058*^9}, {3.68224427065597*^9, 
   3.682244283409008*^9}, {3.6822443160128517`*^9, 3.682244326447394*^9}, {
   3.682244392020493*^9, 3.682244400571671*^9}, {3.682244596208706*^9, 
   3.682244803339835*^9}, {3.682244951115906*^9, 3.6822449654470167`*^9}, {
   3.682247256239483*^9, 3.682247304444981*^9}, {3.682247343926553*^9, 
   3.682247361035624*^9}, {3.682247395780785*^9, 3.6822474984407682`*^9}, {
   3.6822475305652437`*^9, 3.682247636381772*^9}, {3.6822476807262373`*^9, 
   3.682247690229601*^9}, {3.682247723533629*^9, 3.682247825538166*^9}, {
   3.682247866195016*^9, 3.6822478768890457`*^9}, {3.682247927112714*^9, 
   3.682248080675892*^9}, {3.682248357004342*^9, 3.682248375626561*^9}, {
   3.6822486441315317`*^9, 3.682248669634107*^9}, 3.68224956936229*^9, 
   3.682262332986014*^9, {3.6822623719028997`*^9, 3.68226237223594*^9}, {
   3.682312281830681*^9, 3.6823123030407467`*^9}, {3.682323578349629*^9, 
   3.682323592418137*^9}, {3.6823237158461313`*^9, 3.682323721213748*^9}, 
   3.6823275058706827`*^9, {3.685292929314414*^9, 3.685292949551355*^9}, {
   3.685292980630427*^9, 3.685293093109366*^9}, {3.6852935686996202`*^9, 
   3.685293592607072*^9}, {3.685294304496677*^9, 3.685294312832938*^9}, {
   3.685294359159436*^9, 3.685294392591338*^9}, 3.685294452156907*^9, {
   3.7125585005216303`*^9, 3.712558599149044*^9}, {3.712558653688374*^9, 
   3.712558706404811*^9}, 3.712558740953339*^9, {3.7125590860901546`*^9, 
   3.712559142612122*^9}, {3.7125592016674137`*^9, 3.7125592063906593`*^9}, {
   3.712559401604739*^9, 3.71255953948845*^9}, {3.714299857191777*^9, 
   3.7142999807555943`*^9}, {3.714300353839711*^9, 3.714300370025322*^9}, {
   3.7143006580073347`*^9, 3.71430073426262*^9}, {3.714300764771763*^9, 
   3.714300765044641*^9}, {3.7143009931156893`*^9, 3.714300999489381*^9}, {
   3.714301113534289*^9, 3.714301113829965*^9}, {3.7143020774421186`*^9, 
   3.7143021118228292`*^9}, {3.71430227439701*^9, 3.714302294510023*^9}, {
   3.714302347836523*^9, 3.7143023831981583`*^9}, 3.714302664964923*^9, {
   3.714302722174418*^9, 3.714302735315815*^9}, {3.714302979671762*^9, 
   3.714303016956828*^9}, {3.7143030469840384`*^9, 3.714303104119825*^9}, {
   3.714303151126802*^9, 3.7143031732439528`*^9}, {3.714310925701439*^9, 
   3.714310932964589*^9}, {3.7143142015143538`*^9, 3.7143142638299913`*^9}, {
   3.714314627190888*^9, 3.714314627357841*^9}, {3.717950017228942*^9, 
   3.717950160656786*^9}, {3.730095724552846*^9, 3.730095727188938*^9}, {
   3.730095768792885*^9, 3.7300957955994368`*^9}, {3.730095872367436*^9, 
   3.7300959720295467`*^9}, {3.730096018757462*^9, 3.730096023821756*^9}, {
   3.730096101254458*^9, 3.730096112884797*^9}, {3.7300967599675837`*^9, 
   3.730096761279415*^9}, {3.730104202662957*^9, 3.730104206917555*^9}, {
   3.730379169007759*^9, 3.73037924742875*^9}, {3.730379446001863*^9, 
   3.730379450823716*^9}, {3.7303794992640257`*^9, 3.7303795127738*^9}, {
   3.742028275962288*^9, 3.742028294205703*^9}, {3.742028329004146*^9, 
   3.7420283507206287`*^9}, 3.74383537227837*^9, 3.743865333765183*^9, 
   3.743865412706151*^9, {3.7585301688581333`*^9, 3.758530188625404*^9}, {
   3.759519602241129*^9, 3.759519602530651*^9}, {3.7595203688037148`*^9, 
   3.759520376673492*^9}, 3.7627930939740047`*^9, {3.7649589363130217`*^9, 
   3.76495912586209*^9}, {3.7649593010903053`*^9, 3.7649593245996313`*^9}, {
   3.7649593872074966`*^9, 3.7649594233680563`*^9}, {3.764959564540421*^9, 
   3.7649596370674343`*^9}},
 Background->RGBColor[0.94, 0.91, 0.88],
 CellLabel->"In[832]:=",
 CellID->1310482763,ExpressionUUID->"947bf28f-5505-4379-acd3-c1a187b049ef"]
}, Closed]]
}, Open  ]]
},
WindowSize->Medium,
WindowMargins->Automatic,
Visible->True,
CellContext->"Global`",
FrontEndVersion->"11.3 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 5, \
2018)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "FunctionPageStyles.nb", 
  CharacterEncoding -> "UTF-8"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "ExtendedExamples"->{
  Cell[19487, 517, 155, 2, 56, "ExtendedExamplesSection",ExpressionUUID->"2db8cf6c-16ff-41d9-931a-5d487bf07ca8",
   CellTags->"ExtendedExamples",
   CellID->1854448968]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"ExtendedExamples", 99091, 2345}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 600, 14, 24, "History",ExpressionUUID->"2d526593-e016-4fd2-a0f9-1d2b0730b5fd",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[1183, 38, 123, 1, 29, "CategorizationSection",ExpressionUUID->"ff9531e2-e9d6-4978-b0bb-267dbb02ccc8",
 CellID->1122911449],
Cell[1309, 41, 134, 2, 30, "Categorization",ExpressionUUID->"199f00c6-e880-4d44-b309-d65ff2fbf8e6",
 CellID->686433507],
Cell[1446, 45, 177, 3, 30, "Categorization",ExpressionUUID->"a492d49f-b714-4b90-84c4-12f7445f1d44",
 CellID->605800465],
Cell[1626, 50, 172, 3, 30, "Categorization",ExpressionUUID->"31960670-a584-4c52-886b-fe10fc432b7b",
 CellID->468444828],
Cell[1801, 55, 173, 2, 30, "Categorization",ExpressionUUID->"f23c4b99-ebcb-48eb-840e-e14cb3a0a84f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2011, 62, 110, 1, 29, "KeywordsSection",ExpressionUUID->"54186f04-3033-45ad-8775-88d2cf2d49d5",
 CellID->477174294],
Cell[2124, 65, 100, 1, 70, "Keywords",ExpressionUUID->"5f55613d-c346-4035-a2b8-6b938e6b5667",
 CellID->1164421360]
}, Closed]],
Cell[CellGroupData[{
Cell[2261, 71, 120, 1, 19, "TemplatesSection",ExpressionUUID->"afa78fa7-18d1-416a-96ef-33d0f9227133",
 CellID->1872225408],
Cell[2384, 74, 149, 2, 70, "Template",ExpressionUUID->"fc41e909-3c0e-4759-8075-aaea1822c5f9",
 CellID->1562036412],
Cell[2536, 78, 137, 2, 70, "Template",ExpressionUUID->"7fbc84e1-d571-4fbc-a58c-177e33e21122",
 CellID->158391909],
Cell[2676, 82, 136, 2, 70, "Template",ExpressionUUID->"a6f31a3f-0b3b-43e2-8255-6c7be70b1da4",
 CellID->1360575930],
Cell[2815, 86, 137, 2, 70, "Template",ExpressionUUID->"b1cb9dbc-8f1e-4f9e-abd6-24fd8eea5fd8",
 CellID->793782254]
}, Closed]],
Cell[CellGroupData[{
Cell[2989, 93, 108, 1, 19, "DetailsSection",ExpressionUUID->"c572424c-eba6-4ea1-814a-651991ecd244",
 CellID->307771771],
Cell[3100, 96, 118, 2, 70, "Details",ExpressionUUID->"d9488ef8-5627-4697-bd26-e92e1dbb14ca",
 CellID->670882175],
Cell[3221, 100, 124, 2, 70, "Details",ExpressionUUID->"eee41701-c765-49b1-80bb-e6897c4527c3",
 CellID->350963985],
Cell[3348, 104, 119, 2, 70, "Details",ExpressionUUID->"328def55-6b0c-46c1-97d4-6cc0f8d25cfd",
 CellID->8391405],
Cell[3470, 108, 124, 2, 70, "Details",ExpressionUUID->"e92208c8-e502-408b-9d00-376ef4d41a50",
 CellID->3610269],
Cell[3597, 112, 116, 2, 70, "Details",ExpressionUUID->"21b5692b-5d75-4129-92ef-664ef6a8d53b",
 CellID->401364205],
Cell[3716, 116, 116, 2, 70, "Details",ExpressionUUID->"8039fa26-76fd-4d0c-9c20-9900b3405883",
 CellID->350204745],
Cell[3835, 120, 118, 2, 70, "Details",ExpressionUUID->"912c9a03-6065-445b-ba02-1c8c11786caa",
 CellID->732958810],
Cell[3956, 124, 133, 2, 70, "Details",ExpressionUUID->"bc05ca89-e318-4701-85bc-dccd597b99cd",
 CellID->222905350],
Cell[4092, 128, 122, 2, 70, "Details",ExpressionUUID->"a5fb0745-4277-4d9d-8f31-4071a6b1c682",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[4251, 135, 119, 1, 63, "ObjectName",ExpressionUUID->"b43b5c1a-a770-4fff-83c2-15c4247a380f",
 CellID->1224892054],
Cell[4373, 138, 985, 23, 78, "Usage",ExpressionUUID->"3fee5633-10aa-4c5c-a67a-c2e2b7454e1e",
 CellID->982511436],
Cell[5361, 163, 329, 8, 25, "Notes",ExpressionUUID->"91c3b632-7cf8-444a-b1a6-5dd41142ba8a",
 CellID->2065610929],
Cell[5693, 173, 353, 6, 41, "Notes",ExpressionUUID->"b0ca9316-0174-4cbd-be2d-3b4ff2d1f0dd",
 CellID->1067943069],
Cell[6049, 181, 327, 6, 25, "Notes",ExpressionUUID->"63c72d80-c1f6-4a1e-b885-594b6c3f6227",
 CellID->734379717],
Cell[6379, 189, 166, 2, 25, "Notes",ExpressionUUID->"7fa401ad-b8f4-4ff4-80eb-53a65a4c6e68",
 CellID->371065972],
Cell[6548, 193, 1554, 31, 95, "3ColumnTableMod",ExpressionUUID->"ccc1b3cb-fb54-4e5d-a247-2218ecab7eae",
 CellID->1202211238]
}, Open  ]],
Cell[CellGroupData[{
Cell[8139, 229, 112, 1, 44, "TutorialsSection",ExpressionUUID->"e4df524d-aa90-4dde-8720-76060d5bd9c4",
 CellID->250839057],
Cell[8254, 232, 100, 1, 16, "Tutorials",ExpressionUUID->"50d6f853-3667-4873-980c-2c553858a13c",
 CellID->341631938]
}, Open  ]],
Cell[CellGroupData[{
Cell[8391, 238, 138, 1, 31, "RelatedDemonstrationsSection",ExpressionUUID->"5d5d08f9-cfa2-4e70-a8a5-afa1001e44f9",
 CellID->1268215905],
Cell[8532, 241, 113, 1, 16, "RelatedDemonstrations",ExpressionUUID->"44fc52eb-bcba-472f-abc4-9c7b4730abe0",
 CellID->1129518860]
}, Open  ]],
Cell[CellGroupData[{
Cell[8682, 247, 120, 1, 31, "RelatedLinksSection",ExpressionUUID->"97f6b36b-7f0e-4799-a480-231821c3942a",
 CellID->1584193535],
Cell[8805, 250, 104, 1, 16, "RelatedLinks",ExpressionUUID->"ef10f5f4-6a18-4474-bbcc-701db1aa81c0",
 CellID->1038487239]
}, Open  ]],
Cell[CellGroupData[{
Cell[8946, 256, 110, 1, 31, "SeeAlsoSection",ExpressionUUID->"5d349b99-86c6-4f7c-b7bf-1e2d18f36060",
 CellID->1255426704],
Cell[9059, 259, 1798, 42, 39, "SeeAlso",ExpressionUUID->"9d2ccad5-f853-49b4-9305-8e6a9088e5c3",
 CellID->929782353]
}, Open  ]],
Cell[CellGroupData[{
Cell[10894, 306, 112, 1, 31, "MoreAboutSection",ExpressionUUID->"9715f1b4-2ff4-4184-a812-c2f5e40dcdcc",
 CellID->38303248],
Cell[11009, 309, 101, 1, 16, "MoreAbout",ExpressionUUID->"dcf67444-91f0-4692-98e3-d662b4ab553e",
 CellID->1665078683]
}, Open  ]],
Cell[CellGroupData[{
Cell[11147, 315, 411, 11, 70, "PrimaryExamplesSection",ExpressionUUID->"37343cd5-1255-4f34-8e90-dc76e97fcdc8",
 CellID->880084151],
Cell[11561, 328, 1260, 31, 58, "ExampleText",ExpressionUUID->"dbb2b1a2-2bdf-488d-a57f-e01af8198c94",
 CellID->2069733463],
Cell[CellGroupData[{
Cell[12846, 363, 367, 7, 29, "Input",ExpressionUUID->"5cbab09f-46cb-472c-ac26-59ddf9b5d781",
 CellID->1320626680],
Cell[13216, 372, 6222, 139, 450, "Output",ExpressionUUID->"b08d5223-9dfa-4974-aef7-d640741c19c0",
 CellID->518695503]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[19487, 517, 155, 2, 56, "ExtendedExamplesSection",ExpressionUUID->"2db8cf6c-16ff-41d9-931a-5d487bf07ca8",
 CellTags->"ExtendedExamples",
 CellID->1854448968],
Cell[19645, 521, 242, 5, 33, "ExampleSection",ExpressionUUID->"08bc864f-98c1-4064-b72c-dbfea8bb8888",
 CellID->1293636265],
Cell[19890, 528, 265, 5, 21, "ExampleSection",ExpressionUUID->"99612313-a646-45c7-8a82-0680a961347c",
 CellID->1020263627],
Cell[CellGroupData[{
Cell[20180, 537, 244, 5, 21, "ExampleSection",ExpressionUUID->"83a44520-675d-421a-ba3c-3668a892a9f6",
 CellID->2061341341],
Cell[CellGroupData[{
Cell[20449, 546, 320, 6, 24, "ExampleSubsection",ExpressionUUID->"c673667b-8334-424a-8ec5-483606d087dc",
 CellID->1757724783],
Cell[20772, 554, 275, 5, 22, "ExampleText",ExpressionUUID->"bef96953-bd65-43e5-b538-ba009d4a51ad",
 CellID->687216101],
Cell[CellGroupData[{
Cell[21072, 563, 351, 6, 27, "Input",ExpressionUUID->"cb962357-5ec2-46e9-9325-509295dbbaa5",
 CellID->27134111],
Cell[21426, 571, 6227, 139, 472, "Output",ExpressionUUID->"75394a76-1f8d-4f07-8af6-4418266ef747",
 CellID->1998510158]
}, Open  ]],
Cell[27668, 713, 415, 7, 37, "ExampleText",ExpressionUUID->"94845845-f67d-4974-9adf-68cea0840ea1",
 CellID->1642968976],
Cell[CellGroupData[{
Cell[28108, 724, 422, 8, 29, "Input",ExpressionUUID->"500d81c0-c02f-4c1e-9b26-afdab4a65e88",
 CellID->732542949],
Cell[28533, 734, 7940, 176, 590, "Output",ExpressionUUID->"c332d2a3-daec-47aa-ad09-4f644937b0e7",
 CellID->1676665598]
}, Open  ]],
Cell[CellGroupData[{
Cell[36510, 915, 372, 7, 70, "Input",ExpressionUUID->"ee588428-3ecf-4620-a7a2-8f668e35df6d",
 CellID->1413021396],
Cell[36885, 924, 11106, 244, 70, "Output",ExpressionUUID->"4b106412-4a4d-4f49-a2fa-1729886157d3",
 CellID->837772151]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[48040, 1174, 325, 6, 70, "ExampleSubsection",ExpressionUUID->"9518069e-bb2f-4016-b9f3-526cb37f0ebc",
 CellID->1295379749],
Cell[48368, 1182, 872, 21, 70, "ExampleText",ExpressionUUID->"aed24ed1-bb6b-47b4-95d1-7a6ac1c5696b",
 CellID->1940512160],
Cell[CellGroupData[{
Cell[49265, 1207, 409, 7, 70, "Input",ExpressionUUID->"1ad40c72-a0ad-48d6-8317-0778a413367c",
 CellID->716128294],
Cell[49677, 1216, 5650, 124, 70, "Output",ExpressionUUID->"8d8ba03e-7c16-4f95-9c05-24c7aa33c807",
 CellID->187832264]
}, Open  ]],
Cell[CellGroupData[{
Cell[55364, 1345, 430, 8, 70, "Input",ExpressionUUID->"afb15da3-3812-42b2-855d-24a8dbbfc3c6",
 CellID->1935877679],
Cell[55797, 1355, 3312, 76, 70, "Output",ExpressionUUID->"82264079-f570-4f9e-b34a-671f6814218f",
 CellID->995624399]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[59158, 1437, 355, 7, 70, "ExampleSubsection",ExpressionUUID->"03c57e36-53ba-4393-9415-2d7f0b871283",
 CellID->973292781],
Cell[59516, 1446, 579, 13, 70, "ExampleText",ExpressionUUID->"bad45f08-c3dd-40b6-b01b-737ad81ee680",
 CellID->1068446036],
Cell[CellGroupData[{
Cell[60120, 1463, 438, 8, 29, "Input",ExpressionUUID->"9ac35ab5-36c5-49f3-9943-20f8d66d7c48",
 CellID->1051086967],
Cell[60561, 1473, 4309, 99, 413, "Output",ExpressionUUID->"7b504dec-3eb6-4970-8ac5-f6223526753d",
 CellID->672056977]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[64909, 1577, 248, 5, 33, "ExampleSection",ExpressionUUID->"e7c38a11-58ed-4b5e-a1d6-f2949c00c163",
 CellID->258228157],
Cell[65160, 1584, 259, 5, 21, "ExampleSection",ExpressionUUID->"90f4d4ad-32ab-49e9-abae-6d1200d3d9cf",
 CellID->2123667759],
Cell[CellGroupData[{
Cell[65444, 1593, 252, 5, 21, "ExampleSection",ExpressionUUID->"5aec85ad-e491-4c67-be5d-811f98a3f8a0",
 CellID->1305812373],
Cell[65699, 1600, 434, 10, 23, "ExampleText",ExpressionUUID->"255fe383-fa1c-4b89-8458-c4fb1449519d",
 CellID->1002610224],
Cell[CellGroupData[{
Cell[66158, 1614, 406, 6, 29, "Input",ExpressionUUID->"e5547bde-5742-4a0a-8c68-d8588aa0d1f2",
 CellID->1004896690],
Cell[66567, 1622, 356, 7, 25, "Output",ExpressionUUID->"0db82ec9-6ec5-4764-a111-b0387d0659d8",
 CellID->1735640704]
}, Open  ]],
Cell[66938, 1632, 212, 2, 22, "ExampleText",ExpressionUUID->"fc9561de-f6e0-42c6-b425-69206f32545f",
 CellID->1276449119],
Cell[CellGroupData[{
Cell[67175, 1638, 403, 7, 29, "Input",ExpressionUUID->"30f0c7e5-e1a6-41dc-89c4-b565abe43509",
 CellID->1551672606],
Cell[67581, 1647, 6525, 146, 427, "Output",ExpressionUUID->"4ccb1562-07f6-4b4b-be01-76c7ffbeb9cd",
 CellID->774671001]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[74155, 1799, 257, 5, 33, "ExampleSection",ExpressionUUID->"bd7d80fd-26f3-4475-a798-3a8b9efd083f",
 CellID->1653164318],
Cell[74415, 1806, 476, 12, 71, "Input",ExpressionUUID->"3bf424df-bbad-47a9-9652-0bafcceaea0e",
 CellID->918441626]
}, Open  ]],
Cell[74906, 1821, 249, 5, 33, "ExampleSection",ExpressionUUID->"f7b575fe-0049-421e-b27e-23c281fa8c0a",
 CellID->589267740],
Cell[CellGroupData[{
Cell[75180, 1830, 374, 8, 21, "ExampleSection",ExpressionUUID->"53641ac7-ef4f-426e-a22b-fe7d4a78c0dd",
 CellID->987488955],
Cell[75557, 1840, 1466, 35, 228, "Input",ExpressionUUID->"d4c6e3dd-15a2-40ea-aa73-ce2bfbba0531",
 InitializationCell->False,
 CellID->1781491491],
Cell[77026, 1877, 21639, 450, 2411, "Input",ExpressionUUID->"947bf28f-5505-4379-acd3-c1a187b049ef",
 InitializationCell->False,
 CellID->1310482763]
}, Closed]]
}, Open  ]]
}
]
*)

